From e3519291b23972f1857bbee5092ffd34eea6cc71 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Sun, 19 Oct 2025 15:38:55 +0300
Subject: Fix an issue where a sequence of nodes created with the `$` helper
 would break.

---
 test/dompa/nodes_test.cljc | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index 8d39da1..2606be6 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -14,6 +14,17 @@
   (is (= "<div>hello world</div>"
          (hello "world"))))
 
+(defhtml list-items [items]
+  ($ :ul
+     (->> items
+          (map (fn [item]
+                ($ :li ($ item))))
+          (into []))))
+
+(deftest list-items-test
+  (is (= "<ul><li>one</li><li>two</li><li>three</li></ul>"
+         (list-items ["one" "two" "three"]))))
+
 (deftest $-test
   (testing "a simple node"
     (is (= {:node/name     :div
-- 
cgit v1.2.3