From ad99ea49de2bda94f1f6af1c14b61401c1696f9d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 27 Oct 2023 21:29:47 +0200
Subject: Tests.

---
 tests/unit/vcomponent/create.scm | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

(limited to 'tests/unit/vcomponent/create.scm')

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))
-- 
cgit v1.2.3