gered/clj-jtwig
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add :auto-convert-map-keywords option tests for function params/return

Browse source
This commit is contained in:
Gered 2014-06-14 19:56:52 -04:00
parent 420bd20a0b
commit bed886b5ad
1 changed files with 56 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
test/clj_jtwig/convert_test.clj
View file

@ -1,7 +1,8 @@
(ns clj-jtwig.convert-test (ns clj-jtwig.convert-test
(:require [clojure.test :refer :all] (:require [clojure.test :refer :all]
[clj-jtwig.core :refer :all] [clj-jtwig.core :refer :all]
[clj-jtwig.convert :refer :all])) [clj-jtwig.convert :refer :all]
[clj-jtwig.functions :refer :all]))
(deftest java-to-clojure (deftest java-to-clojure
(testing "Converting Java values to Clojure values" (testing "Converting Java values to Clojure values"
@ -153,3 +154,57 @@
(is (= nil (is (= nil
(clojure->java nil)) (clojure->java nil))
"nil"))) "nil")))
(deftest function-map-param-conversion
(testing "Jtwig function map parameter conversion (keyword keys)"
(do
(reset-functions!)
(deftwigfn "keys_are_all_keywords" [x]
(every? keyword? (keys x)))
(deftwigfn "keys_are_all_strings" [x]
(every? string? (keys x)))
(set-options! :auto-convert-map-keywords true)
(is (= (render "{{keys_are_all_keywords(x)}}" {:x {:a "foo" :b "bar" :c "baz"}})
"true"))
(is (= (render "{{keys_are_all_keywords(x)}}" {:x {"a" "foo" "b" "bar" "c" "baz"}})
"true"))
(set-options! :auto-convert-map-keywords false)
(is (= (render "{{keys_are_all_keywords(x)}}" {"x" {:a "foo" :b "bar" :c "baz"}})
"true"))
(is (= (render "{{keys_are_all_strings(x)}}" {"x" {"a" "foo" "b" "bar" "c" "baz"}})
"true"))
(set-options! :auto-convert-map-keywords true)
(reset-functions!))))
(deftest function-map-return-conversion
(testing "Jtwig function map return value conversion (keyword keys)"
(do
(reset-functions!)
(deftwigfn "get_map_with_keywords" [x]
{:a "foo" :b "bar" :c "baz"})
(deftwigfn "get_map_with_strings" [x]
{"a" "foo" "b" "bar" "c" "baz"})
(deftwigfn "keys_are_all_keywords" [x]
(every? keyword? (keys x)))
(deftwigfn "keys_are_all_strings" [x]
(every? string? (keys x)))
(set-options! :auto-convert-map-keywords true)
(is (= (render "{{keys_are_all_keywords(get_map_with_keywords(null))}}" {})
"true"))
(is (= (render "{{keys_are_all_keywords(get_map_with_strings(null))}}" {})
"true"))
(set-options! :auto-convert-map-keywords false)
(is (= (render "{{keys_are_all_keywords(get_map_with_keywords(null))}}" {})
"true"))
(is (= (render "{{keys_are_all_strings(get_map_with_strings(null))}}" {})
"true"))
(set-options! :auto-convert-map-keywords true)
(reset-functions!))))