From 6050602eec32b3e7c584076e2380745e144ec653 Mon Sep 17 00:00:00 2001 From: paku Date: Mon, 5 Feb 2024 01:48:17 +0900 Subject: [PATCH] Fix test --- t/piccolo.lisp | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/t/piccolo.lisp b/t/piccolo.lisp index 80a268e..a9c86bc 100644 --- a/t/piccolo.lisp +++ b/t/piccolo.lisp @@ -120,32 +120,32 @@ (div3 (div :id "3" div1 div2 "some other text")) (div4 (div :id "4" div3 (div :id "5" (a :href "a.html" "a"))))) (is (string= " -" (element-string html))) - (is (string= "
" (element-string div0))) +" (element-string html))) + (is (string= "
" (element-string div0))) (is (string= "
some text
" (element-string div1))) - (is (string= "
" (element-string div2))) + (is (string= "
" (element-string div2))) (is (string= "
some text
-
+
some other text
" (element-string div3))) (is (string= "
some text
-
+
some other text
" (element-string div4))) (is (string= " -" (elem-str html))) - (is (string= "
" (element-string div0))) +" (elem-str html))) + (is (string= "
" (element-string div0))) (is (string= "
some text
" (elem-str div1))) - (is (string= "
" (elem-str div2))) - (is (string= "
some text
some other text
" + (is (string= "
" (elem-str div2))) + (is (string= "
some text
some other text
" (elem-str div3))) - (is (string= "
some text
some other text
" + (is (string= "
some text
some other text
" (elem-str div4))))) (in-suite escape) @@ -315,22 +315,22 @@
" (element-string home))) (let ((*expand-user-element* nil)) - (is (string= "" (element-string dog1))) - (is (string= "" (element-string dog2))) + (is (string= "" (element-string dog1))) + (is (string= "" (element-string dog2))) (is (string= "" (element-string dog3))) (is (string= " woo " (element-string dog4))) (is (string= "
- + woo - +
" (element-string home)))))) (in-suite h-macro)