diff options
Diffstat (limited to 'test/simple.tl')
| -rw-r--r-- | test/simple.tl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/test/simple.tl b/test/simple.tl index 3ed4685..4dc5b88 100644 --- a/test/simple.tl +++ b/test/simple.tl @@ -453,9 +453,9 @@ ;;; 41 ;;; Test that warning is produced when any of the WHO local macros are used in ;;; an Lisp expression that calculates an attribute -(each ((sym '(htm noesc-fmt fmt esc escq escj str))) +(each ((sym '(htm noesc-fmt esc escq str))) (test (catch - (eval '(progn + (eval ^(progn (with-html-output-to-string (out) (:foo :attr (,sym "abc"))) nil)) @@ -480,3 +480,10 @@ (test (with-html-output-to-string (out) (:p (esc 5) (escq 6) (escj 7))) "<p>567</p>") + +;;; 45 +;;; Test that we can use fmt and escj on attributes +(test (with-html-output-to-string (out) + (:div :span (fmt "~a&" 42) + :color (escj "</script>"))) + "<div span='42&' color='<\\/script>'></div>") |