Vectorize test

This commit is contained in:
Felisp 2024-10-22 13:12:10 +02:00
parent b31417fecc
commit 871943dc35

View file

@ -61,6 +61,10 @@
:scnd {:super :nested}}} :scnd {:super :nested}}}
(map-apply-defaults first-map deep-pony-map))))) (map-apply-defaults first-map deep-pony-map)))))
(deftest vectorize-test
(testing "Vectorizing of value"
(is (= ["foo"] (vectorize "foo") (vectorize ["foo"])))))
(deftest fmap-test (deftest fmap-test
(testing "Applying function to values of map" (testing "Applying function to values of map"
(is (= {:a 2 :b 3} (fmap (fn [k v] (inc v)) (is (= {:a 2 :b 3} (fmap (fn [k v] (inc v))