diff options
Diffstat (limited to 'test/dompa/nodes_test.cljc')
| -rw-r--r-- | test/dompa/nodes_test.cljc | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc index a95593d..1eba4ff 100644 --- a/test/dompa/nodes_test.cljc +++ b/test/dompa/nodes_test.cljc @@ -1,8 +1,17 @@ (ns dompa.nodes-test (:require [clojure.test :refer [deftest is testing]] - [dompa.nodes :refer [$]])) + [dompa.nodes :refer [$ defhtml traverse ->html]] + [dompa.html :as html])) -(deftest node-composition-macro-test +(defhtml hello [who] + ($ :div + ($ "hello " who))) + +(deftest defhtml-test + (is (= "<div>hello world</div>" + (hello "world")))) + +(deftest $-test (testing "a simple node" (is (= {:node/name :div :node/children [{:node/name :dompa/text @@ -22,3 +31,13 @@ ($ "hello")) ($ :span ($ "world"))))))) + +(deftest traverse-test + (let [traverser-fn (fn [node] + (if (= :dompa/text (:node/name node)) + (assoc node :node/value "world hello") + node))] + (is (= "<div>world hello</div>" + (-> (html/->nodes "<div>hello world</div>") + (traverse traverser-fn) + ->html)))))
\ No newline at end of file |