Test for html5 options evaluation

weavejester#106
stain · Sep 30, 2014 · 1a53d3a · 1a53d3a
1 parent 31c06be
commit 1a53d3a
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/test/hiccup/test/page.clj b/test/hiccup/test/page.clj
@@ -61,13 +61,21 @@
            (str "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
                 "<!DOCTYPE html>\n"
                 "<html xml:og=\"http://ogp.me/ns#\" xmlns=\"http://www.w3.org/1999/xhtml\">"
-                "<body>Hello World</body></html>")))    
+                "<body>Hello World</body></html>")))
     (is (= (html5 {:xml? true, :lang "en"
                    "xml:og" "http://ogp.me/ns#"} [:body "Hello World"])
            (str "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
                 "<!DOCTYPE html>\n"
                 "<html lang=\"en\" xml:lang=\"en\" xml:og=\"http://ogp.me/ns#\" xmlns=\"http://www.w3.org/1999/xhtml\">"
-                "<body>Hello World</body></html>")))))
+                "<body>Hello World</body></html>"))))
+  (testing "Evaluation of options"
+    (defn delayed-false [] false) ; should be evaluated by macro
+    (let [options {:xml? (delayed-false)}]
+      (is (= (html5 options [:head [:title "Hello"]])
+           (str "<!DOCTYPE html>\n<html>"
+                "<head><title>Hello</title></head></html>"))))))
+
+
 
 (deftest include-js-test
   (is (= (include-js "foo.js")