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

Add missing test cases

Browse source
This commit is contained in:
paku 2024-10-02 15:00:47 +09:00
parent a071924927
commit 6f8df3e00d
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
tests/hsx.lisp
View file

@ -24,4 +24,44 @@
'div 'div
(hsx/builtin:div) (hsx/builtin:div)
:div) :div)
"div"))))) "div"))))
(testing "empty-hsx"
(let ((elm (div)))
(ok (null (element-props elm)))
(ok (null (element-children elm)))))
(testing "hsx-with-static-props"
(let ((elm (div :prop1 "value1" :prop2 "value2")))
(ok (equal '(:prop1 "value1" :prop2 "value2")
(element-props elm)))
(ok (null (element-children elm)))))
(testing "hsx-with-dynamic-props"
(let* ((props '(:prop1 "value1" :prop2 "value2"))
(elm (div props)))
(ok (equal props (element-props elm)))
(ok (null (element-children elm)))))
(testing "hsx-with-children"
(let ((elm (div
"child1"
"child2")))
(ok (null (element-props elm)))
(ok (equal (list "child1" "child2") (element-children elm)))))
(testing "hsx-with-static-props-and-children"
(let ((elm (div :prop1 "value1" :prop2 "value2"
"child1"
"child2")))
(ok (equal '(:prop1 "value1" :prop2 "value2")
(element-props elm)))
(ok (equal (list "child1" "child2") (element-children elm)))))
(testing "hsx-with-dynamic-props-and-children"
(let* ((props '(:prop1 "value1" :prop2 "value2"))
(elm (div props
"child1"
"child2")))
(ok (equal props (element-props elm)))
(ok (equal (list "child1" "child2") (element-children elm))))))