1 files changed, 69 insertions, 0 deletions
diff --git a/test/simple.tl b/test/simple.tl
index 374bc7e..7645901 100644
--- a/test/simple.tl
+++ b/test/simple.tl
@@ -361,3 +361,72 @@
        <div>\n              \
        \  <p>Bar</p>\n      \
        </div>")
+
+;;; TL-WHO Tests
+
+;;; 28
+;;; Test that non-constant t attribute value treated same as constant t.
+(test (let ((attr-val t))
+        (with-html-output-to-string (out)
+          (:foo :bar attr-val)))
+      "<foo bar='bar'></foo>")
+
+;;; 29
+;;; Test that non-constant nil attribute value treated same as constant t.
+(test (let ((attr-val nil))
+        (with-html-output-to-string (out)
+          (:foo :bar attr-val)))
+      "<foo></foo>")
+
+;;; 30
+;;; Test that complex constant evaluating to t is treated right.
+(test (with-html-output-to-string (out)
+        (:foo :bar (quote t)))
+      "<foo bar='bar'></foo>")
+
+;;; 31
+;;; Test that complex constant nil attribute value treated right.
+(test (with-html-output-to-string (out)
+        (:foo :bar (quote nil)))
+      "<foo></foo>")
+
+;;; 32
+;;; Test that we escape a constant string attribute properly.
+(test (with-html-output-to-string (out)
+         (:foo :bar "'blah<tag>"))
+      "<foo bar='&#39;blah&lt;tag&gt;'></foo>")
+
+;;; 33
+;;; Test that we escape a non-constant string attribute properly.
+(test (let ((attr-val "'blah<tag>"))
+        (with-html-output-to-string (out)
+          (:foo :bar attr-val)))
+      "<foo bar='&#39;blah&lt;tag&gt;'></foo>")
+
+;;; 34
+;;; Test that noesc works for constant.
+(test (with-html-output-to-string (out)
+         (:foo :bar (noesc "'blah<tag>")))
+      "<foo bar=''blah<tag>'></foo>")
+
+;;; 35
+;;; Test that noesc works for non-constant.
+(test (let ((attr-val "'blah<tag>"))
+       (with-html-output-to-string (out)
+         (:foo :bar (noesc attr-val))))
+      "<foo bar=''blah<tag>'></foo>")
+
+;;; 36
+;;; Test that *cl-who-compat* defeats escaping for constant.
+(test (expander-let ((*cl-who-compat* t))
+        (with-html-output-to-string (out)
+          (:foo :bar (noesc "'blah<tag>"))))
+      "<foo bar=''blah<tag>'></foo>")
+
+;;; 37
+;;; Test that *cl-who-compat* defeats escaping for non-constant.
+(test (expander-let ((*cl-who-compat* t))
+        (let ((attr-val "'blah<tag>"))
+          (with-html-output-to-string (out)
+            (:foo :bar (noesc attr-val)))))
+      "<foo bar=''blah<tag>'></foo>")