Rename `utils-test` to `templates-test`

3 files changed, 24 insertions, 12 deletions

diff --git a/src/dompa/templates.cljc b/src/dompa/templates.cljc
index 21ce8f9..2f79fd2 100644
--- a/src/dompa/templates.cljc
+++ b/src/dompa/templates.cljc
@@ -35,13 +35,3 @@
        (cond-> {:node/name ~name}
                attrs?# (assoc :node/attrs attrs#)
                (seq children#) (assoc :node/children (->flat children#))))))
-
-(defhtml test-page []
-  (let [n 123]
-    ($ :<>
-      ($ :div
-        ($ "hello world" n))
-      ($ "hello")
-      ($ :div))))
-
-(test-page)
diff --git a/test/dompa/templates_test.cljc b/test/dompa/templates_test.cljc
new file mode 100644
index 0000000..6bbaf2c
--- /dev/null
+++ b/test/dompa/templates_test.cljc
@@ -0,0 +1,24 @@
+(ns dompa.templates-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [dompa.templates :refer [defhtml $]]))
+
+(deftest node-composition-test
+  (testing "a simple node"
+    (is (= {:node/name     :div
+            :node/children [{:node/name  :dompa/text
+                             :node/value "hello world"}]}
+           ($ :div ($ "hello world")))))
+
+  (testing "a fragment node"
+    (is (= {:node/name     :<>
+            :node/children [{:node/name     :span
+                             :node/children [{:node/name  :dompa/text
+                                              :node/value "hello"}]}
+                            {:node/name     :span
+                             :node/children [{:node/name  :dompa/text
+                                              :node/value "world"}]}]}
+           ($ :<>
+              ($ :span
+                 ($ "hello"))
+              ($ :span
+                 ($ "world")))))))
diff --git a/test/dompa/utils_test.cljc b/test/dompa/utils_test.cljc
deleted file mode 100644
index 9d0ddf3..0000000
--- a/test/dompa/utils_test.cljc
+++ /dev/null
@@ -1,2 +0,0 @@
-(ns dompa.utils-test
-  (:require [clojure.test :refer [deftest is testing]]))