diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-05-28 22:56:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-05-28 22:56:52 -0700 |
| commit | 1a74c6731b9f71e9bd2c698965fc6a56d952691d (patch) | |
| tree | 36319ca0da8d8218b868ed615eb8943fb4384874 | |
| parent | 3fccacf506c6d2ee58c3083dd509020e53e14c2d (diff) | |
| download | tl-who-1a74c6731b9f71e9bd2c698965fc6a56d952691d.tar.gz tl-who-1a74c6731b9f71e9bd2c698965fc6a56d952691d.tar.bz2 tl-who-1a74c6731b9f71e9bd2c698965fc6a56d952691d.zip | |
tests: 7 through 8 working.
* test/simple.tl: Port tests 7 through 8 and move (exit).
| -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") |