diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/dompa/nodes_test.cljc | 11 |
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 |