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/create.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/create.scm')
-rw-r--r-- | tests/unit/vcomponent/create.scm | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/tests/unit/vcomponent/create.scm b/tests/unit/vcomponent/create.scm index caf2d33c..537ccbe9 100644 --- a/tests/unit/vcomponent/create.scm +++ b/tests/unit/vcomponent/create.scm @@ -2,12 +2,24 @@ :use-module ((srfi srfi-1) :select (every)) :use-module (srfi srfi-64) :use-module (srfi srfi-88) + :use-module ((vcomponent base) :select (vcomponent?)) :use-module ((vcomponent create) :select (vcomponent with-parameters - as-list)) + + as-list + vcalendar + vevent + vtimezone + standard + daylight)) :use-module ((vcomponent) - :select (children properties type prop prop* param vline?))) + :select (children + properties + type + prop prop* + param + vline?))) ;; vevent, vcalendar, vtimezone, standard, and daylight all trivial ;; and therefore not tested @@ -66,4 +78,19 @@ ;; (test-group "Parameters and lists" ) +(test-assert (vcomponent? (vcalendar))) +(test-eq 'VCALENDAR (type (vcalendar))) + +(test-assert (vcomponent? (vevent))) +(test-eq 'VEVENT (type (vevent))) + +(test-assert (vcomponent? (vtimezone))) +(test-eq 'VTIMEZONE (type (vtimezone))) + +(test-assert (vcomponent? (standard))) +(test-eq 'STANDARD (type (standard))) + +(test-assert (vcomponent? (daylight))) +(test-eq 'DAYLIGHT (type (daylight))) + '((vcomponent create)) |