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

add basic NONE removal tests

Browse source
This commit is contained in:
nathanmarz 2017-01-08 17:39:15 -05:00
parent 00ab106dd6
commit b127a6c428
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1317,3 +1317,13 @@
(deftest traversed-test (deftest traversed-test
(is (= 10 (select-any (s/traversed s/ALL +) [1 2 3 4])))) (is (= 10 (select-any (s/traversed s/ALL +) [1 2 3 4]))))
(defn- predand= [pred ret v]
(and (pred ret)
(= ret v)))
(deftest remove-with-NONE-test
(is (predand= vector? [1 2 3] (setval [s/ALL nil?] s/NONE [1 2 nil 3 nil])))
(is (predand= list? '(1 2 3) (setval [s/ALL nil?] s/NONE '(1 2 nil 3 nil))))
)