diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-05-29 06:09:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-05-29 06:09:18 -0700 |
| commit | 1690b8cc5381b8ba89e21cb93b232ba09bff4e66 (patch) | |
| tree | 50eb7f194fc3f6ad969186ffa41c30ab7ae49cc5 | |
| parent | 5088404b12f952e09688775f61b7b411be10264e (diff) | |
| download | tl-who-1690b8cc5381b8ba89e21cb93b232ba09bff4e66.tar.gz tl-who-1690b8cc5381b8ba89e21cb93b232ba09bff4e66.tar.bz2 tl-who-1690b8cc5381b8ba89e21cb93b232ba09bff4e66.zip | |
tests: 9 through 14 working.
| -rw-r--r-- | test/simple.tl | 179 |
1 files changed, 90 insertions, 89 deletions
diff --git a/test/simple.tl b/test/simple.tl index 18dfbd4..7bd3c61 100644 --- a/test/simple.tl +++ b/test/simple.tl @@ -97,106 +97,107 @@ :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") - ("http://marcusmiller.com/" . "Marcus Miller") - ("http://www.milesdavis.com/" . "Miles Davis")) - do (htm (:a :href link - (:b (str title))) - :br))) - "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"> -<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 (with-html-output-to-string (out nil :prologue t) + (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))) + "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n \ + <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 />") ;;; 10 -(string= (with-html-output-to-string - (out nil :prologue "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">") - (:apply (:factorial) (:cn "3"))) - "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\"> -<apply><factorial></factorial><cn>3</cn></apply>") +(test (with-html-output-to-string + (out nil :prologue "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">") + (:apply (:factorial) (:cn "3"))) + "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">\n \ + <apply><factorial></factorial><cn>3</cn></apply>") ;;; 11 -(string= (let ((*prologue* "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">")) - (eval `(with-html-output-to-string (out nil :prologue t) - (:apply (:factorial) (:cn "3"))))) - "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\"> -<apply><factorial></factorial><cn>3</cn></apply>") +(test (let ((*prologue* "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">")) + (eval ^(with-html-output-to-string (out nil :prologue t) + (:apply (:factorial) (:cn "3"))))) + "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">\n \ + <apply><factorial></factorial><cn>3</cn></apply>") ;;; 12 -(string= (with-html-output-to-string (out nil :indent t) - (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 (with-html-output-to-string (out nil :indent t) + (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))) + "\n \ + <a href='http://zappa.com/'>\n \ + \ <b>Frank Zappa\n \ + \ </b>\n \ + </a>\n \ + <br />\n \ + <a href='http://marcusmiller.com/'>\n \ + \ <b>Marcus Miller\n \ + \ </b>\n \ + </a>\n \ + <br />\n \ + <a href='http://www.milesdavis.com/'>\n \ + \ <b>Miles Davis\n \ + \ </b>\n \ + </a>\n \ + <br />") ;;; 13 -(string= (with-html-output-to-string (out nil :indent 0) - (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 (with-html-output-to-string (out nil :indent 0) + (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))) + "\n \ + <a href='http://zappa.com/'>\n \ + \ <b>Frank Zappa\n \ + \ </b>\n \ + </a>\n \ + <br />\n \ + <a href='http://marcusmiller.com/'>\n \ + \ <b>Marcus Miller\n \ + \ </b>\n \ + </a>\n \ + <br />\n \ + <a href='http://www.milesdavis.com/'>\n \ + \ <b>Miles Davis\n \ + \ </b>\n \ + </a>\n \ + <br />") ;;; 14 -(string= (with-html-output-to-string (out nil :indent 3) - (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 (with-html-output-to-string (out nil :indent 3) + (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))) + "\n \ + \ <a href='http://zappa.com/'>\n \ + \ <b>Frank Zappa\n \ + \ </b>\n \ + \ </a>\n \ + \ <br />\n \ + \ <a href='http://marcusmiller.com/'>\n \ + \ <b>Marcus Miller\n \ + \ </b>\n \ + \ </a>\n \ + \ <br />\n \ + \ <a href='http://www.milesdavis.com/'>\n \ + \ <b>Miles Davis\n \ + \ </b>\n \ + \ </a>\n \ + \ <br />") + +(exit) ;;; 15 (string= (with-html-output-to-string (out) |