From 58afa52dafb27503661e49ce60b9d37c2d84e49f Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 9 Apr 2012 12:06:57 +0300 Subject: number the tests in source to avoid confusion Just spent 20 minutes trying to figure out why a test that wasn't failing was... --- test/simple | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/test/simple b/test/simple index 128c62b..6fa48e5 100644 --- a/test/simple +++ b/test/simple @@ -5,6 +5,7 @@ ;;; in the CL-WHO-TEST package; all forms are expected to return a ;;; true value on success when EVALuated +;;; 1 (string= (with-output-to-string (out) (with-html-output (out) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") @@ -15,6 +16,7 @@ :br)))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 2 (string= (with-output-to-string (out) (with-html-output (out nil) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") @@ -25,6 +27,7 @@ :br)))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 3 (string= (with-output-to-string (foo) (with-html-output (out foo) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") @@ -35,6 +38,7 @@ :br)))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 4 (string= (with-html-output-to-string (out) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") ("http://marcusmiller.com/" . "Marcus Miller") @@ -44,6 +48,7 @@ :br))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 5 (string= (with-html-output-to-string (out nil) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") ("http://marcusmiller.com/" . "Marcus Miller") @@ -53,6 +58,7 @@ :br))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 6 (string= (with-html-output-to-string (out nil :prologue nil) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") ("http://marcusmiller.com/" . "Marcus Miller") @@ -62,11 +68,13 @@ :br))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 7 (eq (array-element-type (with-html-output-to-string (out nil :element-type 'base-char) (:br))) 'base-char) +;;; 8 (string= (let ((*attribute-quote-char* #\")) (with-html-output-to-string (out) (loop for (link . title) in '(("http://zappa.com/" . "Frank Zappa") @@ -77,6 +85,7 @@ :br)))) "Frank Zappa
Marcus Miller
Miles Davis
") +;;; 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") @@ -87,18 +96,21 @@ " Frank Zappa
Marcus Miller
Miles Davis
") +;;; 10 (string= (with-html-output-to-string (out nil :prologue "") (:apply (:factorial) (:cn "3"))) " 3") +;;; 11 (string= (let ((*prologue* "")) (with-html-output-to-string (out nil :prologue t) (:apply (:factorial) (:cn "3")))) " 3") +;;; 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") @@ -123,6 +135,7 @@
") +;;; 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") @@ -147,6 +160,7 @@
") +;;; 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") @@ -171,6 +185,7 @@
") +;;; 15 (string= (with-html-output-to-string (out) (:table :border 0 :cellpadding 4 (loop for i below 25 by 5 @@ -184,6 +199,7 @@ (fmt "~@R" (1+ j)))))))))) "
IIIIIIIVV
VIVIIVIIIIXX
XIXIIXIIIXIVXV
XVIXVIIXVIIIXIXXX
XXIXXIIXXIIIXXIVXXV
") +;;; 16 (string= (with-html-output-to-string (out) (:h4 "Look at the character entities generated by this example") (loop for i from 0 @@ -196,6 +212,7 @@ (htm (esc string)))))) "

Look at the character entities generated by this example

Fête

Sørensen

naïve

Hühner

Straße

") +;;; 17 (flet ((checkbox (stream name checked &optional value) (with-html-output (stream) (:input :type "checkbox" :name name :checked checked :value value)))) @@ -208,30 +225,36 @@ (string= (with-output-to-string (s) (checkbox s "foo" t "bar")) ""))) +;;; 18 (string= (with-html-output-to-string (out) (:p)) "

") +;;; 19 (string= (let ((*html-empty-tag-aware-p* nil)) (with-html-output-to-string (out) (:p))) "

") +;;; 20 (string= (let ((*html-empty-tag-aware-p* t) (*html-empty-tags* '(:p))) (with-html-output-to-string (out) (:p))) "

") +;;; 21 (string= (with-html-output-to-string (out) (:|Foo| :bar 42)) "") +;;; 22 (string= (let ((*downcase-tokens-p* nil)) (with-html-output-to-string (out) (:|Foo| :bar 42))) "") +;;; 23 (string= (let* ((list (list (make-string-output-stream) (make-string-output-stream))) (stream (first list))) (with-html-output (var (pop list)) -- cgit v1.2.3