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