Add tests for fmap

2024-01-08 03:29:53 +01:00 · 2024-01-08 03:29:53 +01:00 · 039c48fe16
commit 039c48fe16
parent 618304f5eb
1 changed files with 5 additions and 0 deletions
--- 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})))))