Fix convert-props test case

This commit is contained in:
Juho Teperi 2018-12-31 13:45:37 +02:00
parent b964ec0fb6
commit 065acffbb7
1 changed files with 10 additions and 6 deletions

View File

@ -11,10 +11,14 @@
(is (= "class" (is (= "class"
(tmpl/cached-custom-prop-name :class)))) (tmpl/cached-custom-prop-name :class))))
;; Cljs.test prints better error if check is Cljs function
(defn js-equal? [a b]
(gobj/equals a b))
(deftest convert-props-test (deftest convert-props-test
(is (gobj/equals #js {:className "a"} (is (js-equal? #js {:className "a"}
(tmpl/convert-props {:class "a"} #js {:id nil :custom false}))) (tmpl/convert-props {:class "a"} (tmpl/HiccupTag. nil nil nil false))))
(is (gobj/equals #js {:class "a"} (is (js-equal? #js {:class "a"}
(tmpl/convert-props {:class "a"} #js {:id nil :custom true}))) (tmpl/convert-props {:class "a"} (tmpl/HiccupTag. nil nil nil true))))
(is (gobj/equals #js {:className "a b" :id "a"} (is (js-equal? #js {:className "a b" :id "a"}
(tmpl/convert-props {:class "b"} #js {:id "a" :className "a" :custom false})))) (tmpl/convert-props {:class "b"} (tmpl/HiccupTag. nil "a" "a" false)))))