diff --git a/test/rss_thread_watch/utils_test.clj b/test/rss_thread_watch/utils_test.clj index c481037..ccc31ad 100644 --- a/test/rss_thread_watch/utils_test.clj +++ b/test/rss_thread_watch/utils_test.clj @@ -60,3 +60,8 @@ :fst 1 :scnd {:super :nested}}} (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})))))