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

Amend element test

Browse source
This commit is contained in:
paku 2024-06-08 13:02:53 +09:00
parent 8f14d58aa7
commit 24c618cb2f
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/element.lisp
View file

@ -48,7 +48,7 @@
:pretty t)))
(is (string= #M"<p>
\ <span>foo</span>
\</p>"
</p>"
(render-to-string (create-element :p
nil
(list (create-element :span
@ -58,7 +58,7 @@
(is (string= #M"<p>
\ foo
\ <span>bar</span>
\</p>"
</p>"
(render-to-string (create-element :p
nil
(list "foo"
@ -78,7 +78,7 @@
(is (string= #M"<p prop1=\"value1\" prop2>
\ foo
\ <span>bar</span>
\</p>"
</p>"
(render-to-string (create-element :p
(list :prop1 "value1"
:prop2 t
@ -127,7 +127,7 @@
\ <li>bar</li>
\ <li>baz</li>
\ <li>brah</li>
\</ul>"
</ul>"
(render-to-string (create-element :ul
nil
(list (create-element :li