Improve test coverage

2 files changed, 37 insertions, 3 deletions

diff --git a/test/dompa/html_test.cljc b/test/dompa/html_test.cljc
index ab2fafd..8565fdc 100644
--- a/test/dompa/html_test.cljc
+++ b/test/dompa/html_test.cljc
@@ -1,2 +1,17 @@
 (ns dompa.html-test
-  (:require [clojure.test :refer [deftest is testing]]))
+  (:require [clojure.test :refer [deftest is testing]]
+            [dompa.html :as html]))
+
+(deftest coordinates-test
+  (testing "HTML to coordinates"
+    (is (=  [[0 15]
+             [5 9]]
+           (html/->coordinates "<div>hello</div>")))))
+
+(deftest nodes-test
+  (testing "HTML to nodes"
+    (is (= [{:node/name :div
+             :node/attrs    {}
+             :node/children [{:node/name  :dompa/text
+                              :node/value "hello"}]}]
+           (html/->nodes "<div>hello</div>")))))
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