Add tests for fmap
This commit is contained in:
parent
618304f5eb
commit
039c48fe16
1 changed files with 5 additions and 0 deletions
|
@ -60,3 +60,8 @@
|
||||||
:fst 1
|
:fst 1
|
||||||
:scnd {:super :nested}}}
|
:scnd {:super :nested}}}
|
||||||
(map-apply-defaults first-map deep-pony-map)))))
|
(map-apply-defaults first-map deep-pony-map)))))
|
||||||
|
|
||||||
|
(deftest fmap-test
|
||||||
|
(testing "Applying function to values of map"
|
||||||
|
(is (= {:a 2 :b 3} (fmap (fn [k v] (inc v))
|
||||||
|
{:a 1 :b 2})))))
|
||||||
|
|
Loading…
Reference in a new issue