From 537a14bd9e9146cd9f963520aea75778a32ebc42 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Fri, 26 Sep 2025 15:16:09 +0300
Subject: Rename `utils-test` to `templates-test`

---
 src/dompa/templates.cljc       | 10 ----------
 test/dompa/templates_test.cljc | 24 ++++++++++++++++++++++++
 test/dompa/utils_test.cljc     |  2 --
 3 files changed, 24 insertions(+), 12 deletions(-)
 create mode 100644 test/dompa/templates_test.cljc
 delete mode 100644 test/dompa/utils_test.cljc

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]]))
-- 
cgit v1.2.3