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

Rename kind to type

Browse source
This commit is contained in:
Akira Tempaku 2024-05-26 01:29:58 +09:00
parent 803b9add14
commit 42a0828f89
2 changed files with 13 additions and 13 deletions

8
tests/element.lisp
View file

@ -16,10 +16,10 @@
nil
"Hello,"
inner)))
(is (string= (element-kind inner) "span"))
(is (string= (element-type inner) "span"))
(is (equal (element-props inner) `(:class "red")))
(is (equal (element-children inner) (list "World!")))
(is (string= (element-kind outer) "p"))
(is (string= (element-type outer) "p"))
(is (null (element-props outer)))
(is (equal (element-children outer) (list "Hello," inner)))))
@ -44,10 +44,10 @@
(outer (create-element #'comp
'(:variant "red")
inner)))
(is (eql (element-kind outer) #'comp))
(is (eql (element-type outer) #'comp))
(is (equal (element-props outer) `(:variant "red")))
(is (equal (element-children outer) (list inner)))
(let ((expanded-elm (expand outer)))
(is (string= (element-kind expanded-elm) "p"))
(is (string= (element-type expanded-elm) "p"))
(is (equal (element-props expanded-elm) `(:class "red")))
(is (equal (element-children expanded-elm) (list "Hello," inner)))))))