paku/hsx
1
0
Fork 0
Code Issues2 Pull requests Projects Releases2 Packages Wiki Activity Actions

Rename to expand component

Browse source
This commit is contained in:
Akira Tempaku 2024-05-27 16:03:23 +09:00
parent 7a697a1c05
commit 56c51ee0f8
2 changed files with 21 additions and 21 deletions

14
tests/element.lisp
View file

@ -9,9 +9,9 @@
(test tag-element
(let ((elm (create-element "p"
'(:class "red")
"Hello,"
"World")))
'(:class "red")
"Hello,"
"World")))
(is (string= (element-type elm) "p"))
(is (equal (element-props elm) '(:class "red")))
(is (equal (element-children elm) (list "Hello," "World")))))
@ -35,7 +35,7 @@
(let* ((elm (create-element #'comp1
'(:title "foo")
"bar"))
(expanded (expand elm)))
(expanded (expand-component elm)))
(is (eql (element-type elm) #'comp1))
(is (equal (element-props elm) '(:title "foo")))
(is (equal (element-children elm) (list "bar")))
@ -53,10 +53,10 @@
(getf props :children)))
(test component-element-with-property-list
(let* ((elm (create-element #'comp2
(let* ((elm (create-element #'comp2
'(:title "foo")
"bar"))
(expanded (expand elm)))
(expanded (expand-component elm)))
(is (eql (element-type elm) #'comp2))
(is (equal (element-props elm) '(:title "foo")))
(is (equal (element-children elm) (list "bar")))
@ -81,7 +81,7 @@
(let* ((elm (create-element #'comp3
'(:title "foo" :other-key "baz")
"bar"))
(expanded (expand elm)))
(expanded (expand-component elm)))
(is (eql (element-type elm) #'comp3))
(is (equal (element-props elm) '(:title "foo" :other-key "baz")))
(is (equal (element-children elm) (list "bar")))