add test case for map-key

2017-05-05 18:43:20 -04:00 · 2017-05-05 18:43:20 -04:00 · 82314f50ba
commit 82314f50ba
parent 2423127877
1 changed files with 1 additions and 0 deletions
--- 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