diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 21:29:47 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
commit | ad99ea49de2bda94f1f6af1c14b61401c1696f9d (patch) | |
tree | 4c50a7ccbe52a066586842436908e0409994eab3 /tests/unit/vcomponent/geo.scm | |
parent | Group tests/recurrence-simple to avoid warnings. (diff) | |
download | calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.gz calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.xz |
Tests.
Diffstat (limited to 'tests/unit/vcomponent/geo.scm')
-rw-r--r-- | tests/unit/vcomponent/geo.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/unit/vcomponent/geo.scm b/tests/unit/vcomponent/geo.scm new file mode 100644 index 00000000..2cc8ab28 --- /dev/null +++ b/tests/unit/vcomponent/geo.scm @@ -0,0 +1,12 @@ +(define-module (test geo) + :use-module (srfi srfi-64) + :use-module (srfi srfi-64 test-error) + :use-module (srfi srfi-71) + :use-module (srfi srfi-88) + :use-module (vcomponent geo)) + +(test-assert (geo? (geo x: 10 y: 20))) +(test-error 'wrong-type-arg + (geo)) + +'((vcomponent geo)) |