From dd5620cfec2a6dabe4809fe8d2fbbd2378c91649 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Sat, 10 Oct 2015 12:20:41 -0400 Subject: [PATCH] added nil->val test --- test/com/rpl/specter/core_test.cljx | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/test/com/rpl/specter/core_test.cljx b/test/com/rpl/specter/core_test.cljx index 8d45cc1..6d660f0 100644 --- a/test/com/rpl/specter/core_test.cljx +++ b/test/com/rpl/specter/core_test.cljx @@ -557,6 +557,15 @@ (= (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 (deftest large-params-test (let [path (apply s/comp-paths (repeat 25 s/keypath))