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

Add defhsx macro

Browse source
This commit is contained in:
Akira Tempaku 2024-05-27 11:10:11 +09:00
parent 9d0a425b49
commit a85fc32384
2 changed files with 40 additions and 19 deletions

37
tests/hsx.lisp
View file

@ -8,6 +8,7 @@
(def-suite hsx-test)
(in-suite hsx-test)
(test empty-hsx
(is (equal (macroexpand-1
'(div))
@ -44,16 +45,42 @@
"child1"
"child2"))))
(defcomp comp (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children)))
(defhsx custom "custom")
(test component-hsx
(test hsx-for-custom-tag-element
(is (equal (macroexpand-1
'(comp :prop1 "value1" :prop2 "value2"
'(custom :prop1 "value1" :prop2 "value2"
"child1"
"child2"))
'(create-element
#'%comp
"custom"
(list :prop1 "value1" :prop2 "value2")
"child1"
"child2"))))
(defun %comp1 (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children)))
(defhsx comp1 #'%comp1)
(defcomp comp2 (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children)))
(test hsx-for-component-element
(is (equal (macroexpand-1
'(comp1 :prop1 "value1" :prop2 "value2"
"child1"
"child2"))
'(create-element
#'%comp1
(list :prop1 "value1" :prop2 "value2")
"child1"
"child2")))
(is (equal (macroexpand-1
'(comp2 :prop1 "value1" :prop2 "value2"
"child1"
"child2"))
'(create-element
(fdefinition '%comp2)
(list :prop1 "value1" :prop2 "value2")
"child1"
"child2"))))