Rewrite test running system.

1 files changed, 0 insertions, 66 deletions

diff --git a/tests/test/create.scm b/tests/test/create.scm
deleted file mode 100644
index 7cc00419..00000000
--- a/tests/test/create.scm
+++ /dev/null
@@ -1,66 +0,0 @@
-(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" )