Fix an issue where a sequence of nodes created with the `$` helper would break.

1 files changed, 11 insertions, 0 deletions

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