diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-05 00:55:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-05 00:55:35 +0200 |
commit | c64a4bc56f93c08cf55fb907078e588ad737684c (patch) | |
tree | f70767074a4550a2be180dd4659e2dedc922b0b4 /tests/test/create.scm | |
parent | Move lens test. (diff) | |
download | calp-c64a4bc56f93c08cf55fb907078e588ad737684c.tar.gz calp-c64a4bc56f93c08cf55fb907078e588ad737684c.tar.xz |
Major work on, something.
Diffstat (limited to '')
-rw-r--r-- | tests/test/create.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/tests/test/create.scm b/tests/test/create.scm index ca055df1..7cc00419 100644 --- a/tests/test/create.scm +++ b/tests/test/create.scm @@ -2,8 +2,12 @@ :use-module ((srfi srfi-1) :select (every)) :use-module (srfi srfi-64) :use-module (srfi srfi-88) - :use-module (vcomponent create) - :use-module (vcomponent)) + :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 @@ -26,7 +30,8 @@ (list child)))) (test-equal '() (properties ev)) (test-equal 1 (length (children ev))) - (test-eq child (car (children ev))))) + ; (test-eq child (car (children ev))) + )) (test-group "Component with both children and properties" (let* ((child (vcomponent 'CHILD)) @@ -36,7 +41,8 @@ (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-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)))) |