Vectorize test
This commit is contained in:
parent
b31417fecc
commit
871943dc35
1 changed files with 4 additions and 0 deletions
|
@ -61,6 +61,10 @@
|
|||
:scnd {:super :nested}}}
|
||||
(map-apply-defaults first-map deep-pony-map)))))
|
||||
|
||||
(deftest vectorize-test
|
||||
(testing "Vectorizing of value"
|
||||
(is (= ["foo"] (vectorize "foo") (vectorize ["foo"])))))
|
||||
|
||||
(deftest fmap-test
|
||||
(testing "Applying function to values of map"
|
||||
(is (= {:a 2 :b 3} (fmap (fn [k v] (inc v))
|
||||
|
|
Loading…
Reference in a new issue