From 3e4d870d6b287905c786174565a93fbd79bbb87c Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@nmm.ee>
Date: Sat, 10 Jan 2026 14:44:59 +0200
Subject: Add empty-seq? function and update nodes-from-opt to handle empty
 sequences (#13)

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

(limited to 'test')

diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index 53e502a..b1c7b0f 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -31,6 +31,20 @@
   (is (= "<ul><li>one</li><li>two</li><li>three</li></ul>"
          (list-items ["one" "two" "three"]))))
 
+(defhtml empty-list-items [items]
+  ($ :ul
+     (map (fn [item]
+            ($ :li item))
+          items)))
+
+(deftest empty-list-items-test
+  (testing "map over empty vector should not produce LazySeq string"
+    (is (= "<ul></ul>"
+           (empty-list-items []))))
+  (testing "map over non-empty vector should work"
+    (is (= "<ul><li>one</li><li>two</li></ul>"
+           (empty-list-items ["one" "two"])))))
+
 (deftest $-test
   (testing "a simple node"
     (is (= {:node/name     :div
-- 
cgit v1.2.3