Add test for retaining metadata for polyadic assoc-some

weavejester · Oct 7, 2024 · 86388bd · 86388bd
1 parent 27228b5
commit 86388bd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/medley/core_test.cljc b/test/medley/core_test.cljc
@@ -31,7 +31,9 @@
   (is (= (m/assoc-some nil :a 1) {:a 1}))
   (is (= (m/assoc-some nil :a 1 :b 2) {:a 1 :b 2}))
   (is (nil? (m/assoc-some nil :a nil)))
-  (is (nil? (m/assoc-some nil :a nil :b nil))))
+  (is (nil? (m/assoc-some nil :a nil :b nil)))
+  (let [input (with-meta {:a 1} {:m 42})]
+    (is (= {:m 42} (meta (m/assoc-some input :b 2 :c nil :d 3))))))
 
 (deftest test-update-existing
   (is (= (m/update-existing {:a 1} :a inc) {:a 2}))