From 3037fdb5c30c7dbbaa7122798ac6328dc43df4ad Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Sat, 4 Oct 2025 17:03:22 +0300
Subject: Improve test coverage

---
 test/dompa/nodes_test.cljc | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

(limited to 'test/dompa/nodes_test.cljc')

diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index a95593d..1eba4ff 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -1,8 +1,17 @@
 (ns dompa.nodes-test
   (:require [clojure.test :refer [deftest is testing]]
-            [dompa.nodes :refer [$]]))
+            [dompa.nodes :refer [$ defhtml traverse ->html]]
+            [dompa.html :as html]))
 
-(deftest node-composition-macro-test
+(defhtml hello [who]
+  ($ :div
+     ($ "hello " who)))
+
+(deftest defhtml-test
+  (is (= "<div>hello world</div>"
+         (hello "world"))))
+
+(deftest $-test
   (testing "a simple node"
     (is (= {:node/name     :div
             :node/children [{:node/name  :dompa/text
@@ -22,3 +31,13 @@
                  ($ "hello"))
               ($ :span
                  ($ "world")))))))
+
+(deftest traverse-test
+  (let [traverser-fn (fn [node]
+                       (if (= :dompa/text (:node/name node))
+                         (assoc node :node/value "world hello")
+                         node))]
+    (is (= "<div>world hello</div>"
+           (-> (html/->nodes "<div>hello world</div>")
+               (traverse traverser-fn)
+               ->html)))))
\ No newline at end of file
-- 
cgit v1.2.3