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
-
" (element-string div3)))
(is (string= "
" (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= "
"
(elem-str div3)))
- (is (string= "
"
+ (is (string= "
"
(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)