diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/simple | 33 |
1 files changed, 32 insertions, 1 deletions
diff --git a/test/simple b/test/simple index 96686a1..c952fa0 100644 --- a/test/simple +++ b/test/simple @@ -260,4 +260,35 @@ (with-html-output (var (pop list)) (progn (htm (:br)))) (get-output-stream-string stream)) - "<br />")
\ No newline at end of file + "<br />") + +;;; 24 +(string= (with-html-output-to-string (out) + (:div (:pre "Foo"))) + "<div><pre>Foo</pre></div>") + +;;; 25 +(string= (with-html-output-to-string (out nil :indent t) + (:div (:pre "Foo"))) + " +<div> + <pre>Foo</pre> +</div>") + +;;; 26 +(string= (with-html-output-to-string (out nil :indent t) + (:div (:p "Bar"))) + " +<div> + <p>Bar + </p> +</div>") + +;;; 27 +(string= (let ((*html-no-indent-tags* (cons :p *html-no-indent-tags*))) + (eval `(with-html-output-to-string (out nil :indent t) + (:div (:p "Bar"))))) + " +<div> + <p>Bar</p> +</div>") |