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

finish select-any tests

Browse source
This commit is contained in:
Nathan Marz 2016-06-07 13:16:00 -04:00
parent e698f5f06b
commit 5087e500b7
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1133,7 +1133,19 @@
)
)))
;; select-any tests:
;; - if-path (both then and else branches)
;; - continuous-subseqs
;; - multi-path
(deftest multi-path-select-any-test
(is (= s/NONE (select-any (s/multi-path s/STOP s/STOP) 1)))
(is (= 1 (select-any (s/multi-path s/STAY s/STOP) 1)
(select-any (s/multi-path s/STOP s/STAY) 1)
(select-any (s/multi-path s/STOP s/STAY s/STOP) 1)
))
(is (= s/NONE (select-any [(s/multi-path s/STOP s/STAY) even?] 1)))
)
(deftest if-path-select-any-test
(is (= s/NONE (select-any (s/if-path even? s/STAY) 1)))
(is (= 2 (select-any (s/if-path even? s/STAY s/STAY) 2)))
(is (= s/NONE (select-any [(s/if-path even? s/STAY s/STAY) odd?] 2)))
(is (= 2 (select-any (s/if-path odd? s/STOP s/STAY) 2)))
(is (= s/NONE (select-any [(s/if-path odd? s/STOP s/STAY) odd?] 2)))
)