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

added nil->val test

Browse source
This commit is contained in:
Nathan Marz 2015-10-10 12:20:41 -04:00
parent d76142e448
commit dd5620cfec
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/com/rpl/specter/core_test.cljx
View file

@ -557,6 +557,15 @@
(= (s/setval (s/subset s3) s4 combined) (-> combined (set/difference s2) (set/union s4))) (= (s/setval (s/subset s3) s4 combined) (-> combined (set/difference s2) (set/union s4)))
)))) ))))
(deftest nil->val-test
(is (= {:a #{:b}}
(s/setval [:a s/NIL->SET (s/subset #{})] #{:b} nil)))
(is (= {:a #{:b :c :d}}
(s/setval [:a s/NIL->SET (s/subset #{})] #{:b} {:a #{:c :d}})))
(is (= {:a [:b]}
(s/setval [:a s/NIL->VECTOR s/END] [:b] nil)))
)
#+clj #+clj
(deftest large-params-test (deftest large-params-test
(let [path (apply s/comp-paths (repeat 25 s/keypath)) (let [path (apply s/comp-paths (repeat 25 s/keypath))