Allow nesting of `defhtml` (#1)

1 files changed, 62 insertions, 0 deletions

diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index da9b7db..0340abb 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -45,6 +45,68 @@
     (is (= "<ul><li>one</li><li>two</li></ul>"
            (empty-list-items ["one" "two"])))))
 
+(defhtml greeting [who]
+  ($ :span who))
+
+(defhtml page [who]
+  ($ :div
+     (greeting who)))
+
+(defhtml badge [text]
+  ($ :span {:class "badge"} text))
+
+(defhtml card [title]
+  ($ :div {:class "card"}
+     (badge title)))
+
+(defhtml list-item [text]
+  ($ :li text))
+
+(defhtml my-list [items]
+  ($ :ul
+     (->> items
+          (map list-item)
+          (into []))))
+
+(defhtml header [title]
+  ($ :h1 title))
+
+(defhtml nav [items]
+  ($ :nav
+     ($ :ul
+        (->> items
+             (map list-item)
+             (into [])))))
+
+(defhtml layout [title nav-items body]
+  ($ :div
+     (header title)
+     (nav nav-items)
+     ($ :main body)))
+
+(deftest nested-defhtml-test
+  (testing "simple nesting of defhtml"
+    (is (= "<div><span>world</span></div>"
+           (page "world"))))
+
+  (testing "nested defhtml with attributes"
+    (is (= "<div class=\"card\"><span class=\"badge\">Hello</span></div>"
+           (card "Hello"))))
+
+  (testing "nested defhtml via map/collection"
+    (is (= "<ul><li>a</li><li>b</li><li>c</li></ul>"
+           (my-list ["a" "b" "c"]))))
+
+  (testing "deeply nested defhtml (three levels)"
+    (is (= "<div><h1>Title</h1><nav><ul><li>a</li><li>b</li></ul></nav><main>content</main></div>"
+           (layout "Title" ["a" "b"] "content"))))
+
+  (testing "mixing defhtml and $ in the same parent"
+    (is (= "<div><span>hi</span><p>bye</p></div>"
+           (nodes/->html [($ :div
+                             (greeting "hi")
+                             ($ :p "bye"))])))))
+
 (deftest $-test
   (testing "a simple node"
     (is (= {:node/name     :div