paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Fix test

Browse source
This commit is contained in:
paku 2024-05-26 01:49:34 +09:00
parent 42a0828f89
commit c29e8d4882
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/hsx.lisp
View file

@ -25,8 +25,7 @@
(is (equal (element-children elm) (list "child1" "child2"))))) (is (equal (element-children elm) (list "child1" "child2")))))
(test hsx-with-props-and-children (test hsx-with-props-and-children
(test hsx-with-props (let ((elm (div :prop1 "value1" :prop2 "value2"
(let ((elm (div :prop1 "value1" :prop2 "value2" "child1" "child2")))
"child1" "child2"))) (is (equal (element-props elm) '(:prop1 "value1" :prop2 "value2")))
(is (equal (element-props elm) '(:prop1 "value1" :prop2 "value2"))) (is (equal (element-children elm) (list "child1" "child2")))))
(is (equal (element-children elm) (list "child1" "child2"))))))