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

Improve hsx-test/hsx

Browse source
This commit is contained in:
paku 2024-05-28 16:13:41 +09:00
parent ead5c408e3
commit 6daffb4ddf
1 changed files with 13 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
tests/hsx.lisp
View file

@ -2,11 +2,6 @@
(:use #:cl
#:fiveam
#:hsx/hsx)
(:import-from #:hsx/element
#:element-type
#:element-children)
(:import-from #:hsx/defhsx
#:defcomp)
(:import-from #:hsx/builtin))
(in-package #:hsx-test/hsx)
@ -14,20 +9,17 @@
(def-suite hsx-test)
(in-suite hsx-test)
(defcomp div (&rest props)
(declare (ignore props))
"This is fake!")
(defcomp p (&rest props)
(declare (ignore props))
"This is fake!")
(test find-symbols
(let ((fake-elm (div :prop "value"
(p "brah"))))
(is (eql (element-type fake-elm) #'%div)
(eql (element-type (first (element-children fake-elm))) #'%p)))
(let ((true-elm (hsx (div :prop "value"
(p "brah")))))
(is (equal (element-type true-elm) "div")
(equal (element-type (first (element-children true-elm))) "p"))))
(is (equal (macroexpand-1
'(hsx (div
div
(div
div
(div))
div)))
'(hsx/builtin:div
div
(hsx/builtin:div
div
(hsx/builtin:div))
div))))