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

Add subclasses of tag

Browse source
This commit is contained in:
Akira Tempaku 2024-06-09 21:03:21 +09:00
parent 83e495b1cb
commit f770e371b9
3 changed files with 26 additions and 20 deletions

2
tests/element.lisp
View file

@ -15,6 +15,8 @@
(test element-class
(is (typep (create-element :div nil nil) 'tag))
(is (typep (create-element :html nil nil) 'html-tag))
(is (typep (create-element :img nil nil) 'self-closing-tag))
(is (typep (create-element :style nil nil) 'non-escaping-tag))
(is (typep (create-element :<> nil nil) 'fragment))
(is (typep (create-element (lambda ()) nil nil) 'component))
(signals error (create-element "div" nil nil)))