From 82314f50baf7142453507da3a8d5c3d91d7be667 Mon Sep 17 00:00:00 2001 From: nathanmarz Date: Fri, 5 May 2017 18:43:20 -0400 Subject: [PATCH] add test case for map-key --- test/com/rpl/specter/core_test.cljc | 1 + 1 file changed, 1 insertion(+) diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc index eaa0278..1f9f682 100644 --- a/test/com/rpl/specter/core_test.cljc +++ b/test/com/rpl/specter/core_test.cljc @@ -1530,6 +1530,7 @@ (deftest map-key-test (is (= {:b nil :c 3} (setval (s/map-key :a) :b {:c 3}))) (is (= {:b 2} (setval (s/map-key :a) :b {:a 2}))) + (is (= {:b 2} (setval (s/map-key :a) :b {:a 2 :b 1}))) ) #?(:clj