From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 2 Oct 2023 19:26:40 +0200
Subject: Rewrite test running system.

---
 tests/unit/vcomponent/create.scm | 69 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 tests/unit/vcomponent/create.scm

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

diff --git a/tests/unit/vcomponent/create.scm b/tests/unit/vcomponent/create.scm
new file mode 100644
index 00000000..caf2d33c
--- /dev/null
+++ b/tests/unit/vcomponent/create.scm
@@ -0,0 +1,69 @@
+(define-module (test create)
+  :use-module ((srfi srfi-1) :select (every))
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module ((vcomponent create)
+               :select (vcomponent
+                        with-parameters
+                        as-list))
+  :use-module ((vcomponent)
+               :select (children properties type prop prop* param vline?)))
+
+;; vevent, vcalendar, vtimezone, standard, and daylight all trivial
+;; and therefore not tested
+
+(test-group "Empty component"
+ (let ((ev (vcomponent 'TEST)))
+   (test-equal 'TEST (type ev))
+   (test-equal '() (children ev))
+   (test-equal '() (properties ev))))
+
+(test-group "Component with properties, but no children"
+ (let ((ev (vcomponent 'TEST
+                       prop: "value")))
+   (test-equal '(PROP) (map car (properties ev)))
+   (test-equal "value" (prop ev 'PROP))))
+
+(test-group "Component with children, but no properties"
+  (let* ((child (vcomponent 'CHILD))
+         (ev (vcomponent 'TEST
+                        (list child))))
+    (test-equal '() (properties ev))
+    (test-equal 1 (length (children ev)))
+    ; (test-eq child (car (children ev)))
+    ))
+
+(test-group "Component with both children and properties"
+  (let* ((child (vcomponent 'CHILD))
+         (ev (vcomponent 'TEST
+                         prop: "VALUE"
+                         (list child))))
+    (test-equal '(PROP) (map car (properties ev)))
+    (test-equal "VALUE" (prop ev 'PROP))
+    (test-equal 1 (length (children ev)))
+    ; (test-eq child (car (children ev)))
+    ))
+
+(test-group "Component with no children, where last elements value is a list"
+  (let ((ev (vcomponent 'TEST prop: (list 1 2 3))))
+    (test-equal '() (children ev))
+    (test-equal '(PROP) (map car (properties ev)))
+    (test-equal '(1 2 3) (prop ev 'PROP))))
+
+(test-group "With parameters"
+  (let ((ev (vcomponent 'TEST
+                        prop: (with-parameters param: 1 2))))
+    (test-equal 2 (prop ev 'PROP))
+    (test-equal '(1) (param (prop* ev 'PROP) 'PARAM))))
+
+(test-group "As list"
+  (let ((ev (vcomponent 'TEST
+                        prop: (as-list (list 1 2 3)))))
+    (test-equal '(1 2 3) (prop ev 'PROP))
+    (test-equal 3 (length (prop* ev 'PROP)))
+    (test-assert (every vline? (prop* ev 'PROP)))))
+
+;; (test-group "Parameters and lists" )
+
+
+'((vcomponent create))
-- 
cgit v1.2.3