diff options
| -rw-r--r-- | test/simple.tl | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/test/simple.tl b/test/simple.tl index 17dfd87..18dfbd4 100644 --- a/test/simple.tl +++ b/test/simple.tl @@ -78,27 +78,26 @@ :br))) "<a href='http://zappa.com/'><b>Frank Zappa</b></a><br /><a href='http://marcusmiller.com/'><b>Marcus Miller</b></a><br /><a href='http://www.milesdavis.com/'><b>Miles Davis</b></a><br />") -(exit) - ;;; 7 -(eq (array-element-type - (with-html-output-to-string (out nil :element-type 'base-char) - (:br))) - 'base-char) +(test (typeof [(with-html-output-to-string + (out nil) (:br)) 0]) + 'chr) + ;;; 8 -(string= (let ((*attribute-quote-char* #\")) - (with-html-output-to-string (out) - (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") - ("http://marcusmiller.com/" . "Marcus Miller") - ("http://www.milesdavis.com/" . "Miles Davis")) - do (htm (:a :href link - (:b (str title))) - :br)))) - "<a href=\"http://zappa.com/\"><b>Frank Zappa</b></a><br /><a href=\"http://marcusmiller.com/\"><b>Marcus Miller</b></a><br /><a href=\"http://www.milesdavis.com/\"><b>Miles Davis</b></a><br />") +(test (expander-let ((*attribute-quote-char* #\")) + (with-html-output-to-string (out) + (keep-matches ((@link . @title) '(("http://zappa.com/" . "Frank Zappa") + ("http://marcusmiller.com/" . "Marcus Miller") + ("http://www.milesdavis.com/" . "Miles Davis"))) + (htm (:a :href link + (:b (str title))) + :br)))) + "<a href=\"http://zappa.com/\"><b>Frank Zappa</b></a><br /><a href=\"http://marcusmiller.com/\"><b>Marcus Miller</b></a><br /><a href=\"http://www.milesdavis.com/\"><b>Miles Davis</b></a><br />") +(exit) ;;; 9 (string= (with-html-output-to-string (out nil :prologue t) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") |