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

Add flatten-element-children test

Browse source
This commit is contained in:
paku 2024-05-25 19:38:54 +09:00
parent f8171dd47f
commit dbe249fbd8
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/element.lisp
View file

@ -25,6 +25,16 @@
(is (string= kind "p")) (is (string= kind "p"))
(is (equal props `(:children ("Hello," ,inner))))))) (is (equal props `(:children ("Hello," ,inner)))))))
(test flatten-element-children
(let* ((elm (create-element "p"
nil
"a"
nil
(list "b" (list nil "c"))
(cons "d" "e")))
(children (getf (element-props elm) :children)))
(is (equal children (list "a" "b" "c" "d" "e")))))
(test create-component-element (test create-component-element
(labels ((comp (&key variant children) (labels ((comp (&key variant children)
(create-element "p" (create-element "p"