luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add test case for map-key

Browse source
This commit is contained in:
nathanmarz 2017-05-05 18:43:20 -04:00
parent 2423127877
commit 82314f50ba
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
test/com/rpl/specter/core_test.cljc
View file

@ -1530,6 +1530,7 @@
(deftest map-key-test (deftest map-key-test
(is (= {:b nil :c 3} (setval (s/map-key :a) :b {:c 3}))) (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})))
(is (= {:b 2} (setval (s/map-key :a) :b {:a 2 :b 1})))
) )
#?(:clj #?(:clj