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