diff options
Diffstat (limited to 'tests/test/create.scm')
| -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)))) |