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})))))