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

Fix test

Browse source
This commit is contained in:
paku 2024-02-05 01:48:17 +09:00
parent b7fc422294
commit 6050602eec
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
t/piccolo.lisp
View file

@ -120,32 +120,32 @@
(div3 (div :id "3" div1 div2 "some other text")) (div3 (div :id "3" div1 div2 "some other text"))
(div4 (div :id "4" div3 (div :id "5" (a :href "a.html" "a"))))) (div4 (div :id "4" div3 (div :id "5" (a :href "a.html" "a")))))
(is (string= "<!DOCTYPE html> (is (string= "<!DOCTYPE html>
<html>" (element-string html))) <html></html>" (element-string html)))
(is (string= "<div>" (element-string div0))) (is (string= "<div></div>" (element-string div0)))
(is (string= "<div>some text</div>" (element-string div1))) (is (string= "<div>some text</div>" (element-string div1)))
(is (string= "<div id=\"2\">" (element-string div2))) (is (string= "<div id=\"2\"></div>" (element-string div2)))
(is (string= "<div id=\"3\"> (is (string= "<div id=\"3\">
<div>some text</div> <div>some text</div>
<div id=\"2\"> <div id=\"2\"></div>
some other text some other text
</div>" (element-string div3))) </div>" (element-string div3)))
(is (string= "<div id=\"4\"> (is (string= "<div id=\"4\">
<div id=\"3\"> <div id=\"3\">
<div>some text</div> <div>some text</div>
<div id=\"2\"> <div id=\"2\"></div>
some other text some other text
</div> </div>
<div id=\"5\"><a href=\"a.html\">a</a></div> <div id=\"5\"><a href=\"a.html\">a</a></div>
</div>" (element-string div4))) </div>" (element-string div4)))
(is (string= "<!DOCTYPE html> (is (string= "<!DOCTYPE html>
<html>" (elem-str html))) <html></html>" (elem-str html)))
(is (string= "<div>" (element-string div0))) (is (string= "<div></div>" (element-string div0)))
(is (string= "<div>some text</div>" (elem-str div1))) (is (string= "<div>some text</div>" (elem-str div1)))
(is (string= "<div id=\"2\">" (elem-str div2))) (is (string= "<div id=\"2\"></div>" (elem-str div2)))
(is (string= "<div id=\"3\"><div>some text</div><div id=\"2\">some other text</div>" (is (string= "<div id=\"3\"><div>some text</div><div id=\"2\"></div>some other text</div>"
(elem-str div3))) (elem-str div3)))
(is (string= "<div id=\"4\"><div id=\"3\"><div>some text</div><div id=\"2\">some other text</div><div id=\"5\"><a href=\"a.html\">a</a></div></div>" (is (string= "<div id=\"4\"><div id=\"3\"><div>some text</div><div id=\"2\"></div>some other text</div><div id=\"5\"><a href=\"a.html\">a</a></div></div>"
(elem-str div4))))) (elem-str div4)))))
(in-suite escape) (in-suite escape)
@ -315,22 +315,22 @@
</div>" (element-string home))) </div>" (element-string home)))
(let ((*expand-user-element* nil)) (let ((*expand-user-element* nil))
(is (string= "<dog>" (element-string dog1))) (is (string= "<dog></dog>" (element-string dog1)))
(is (string= "<dog size=15>" (element-string dog2))) (is (string= "<dog size=15></dog>" (element-string dog2)))
(is (string= "<dog><img src=\"dog.png\"></dog>" (element-string dog3))) (is (string= "<dog><img src=\"dog.png\"></dog>" (element-string dog3)))
(is (string= "<dog id=\"dog\" size=10> (is (string= "<dog id=\"dog\" size=10>
<img src=\"dog4.png\"> <img src=\"dog4.png\">
woo woo
</dog>" (element-string dog4))) </dog>" (element-string dog4)))
(is (string= "<div id=\"home\"> (is (string= "<div id=\"home\">
<cat> <cat></cat>
<cat> <cat>
<dog id=\"dog\" size=10> <dog id=\"dog\" size=10>
<img src=\"dog4.png\"> <img src=\"dog4.png\">
woo woo
</dog> </dog>
</cat> </cat>
<dog id=\"doge\"><cat></dog> <dog id=\"doge\"><cat></cat></dog>
</div>" (element-string home)))))) </div>" (element-string home))))))
(in-suite h-macro) (in-suite h-macro)