diff options
| author | Nikodemus Siivola <nikodemus@random-state.net> | 2012-04-09 12:11:02 +0300 |
|---|---|---|
| committer | Nikodemus Siivola <nikodemus@random-state.net> | 2012-04-09 12:18:20 +0300 |
| commit | a4c3fca7153bba629c4f5c95ae68e1453afb0ed9 (patch) | |
| tree | ec1a088cc495c12f5413987eb30ddaf3a3f575fc /test/simple | |
| parent | 9078ffa62e030f4419cd465ee604da81750da11b (diff) | |
| download | tl-who-a4c3fca7153bba629c4f5c95ae68e1453afb0ed9.tar.gz tl-who-a4c3fca7153bba629c4f5c95ae68e1453afb0ed9.tar.bz2 tl-who-a4c3fca7153bba629c4f5c95ae68e1453afb0ed9.zip | |
*HTML-NO-INDENT-TAGS*
Tags in this list don't have their body indented even if
*INDENT* is true.
<pre> in particular is indentation sensitive, and it's irritating
when rendering changes as :indent is flipped.
Diffstat (limited to 'test/simple')
| -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>") |