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

improve test

Browse source
This commit is contained in:
Nathan Marz 2015-06-25 16:27:27 -04:00
parent 7520dd7e38
commit dc1da8dfcd
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/clj/com/rpl/specter/core_test.clj
View file

@ -135,12 +135,13 @@
(defspec transform-last-compound
(for-all+
[v (gen/such-that #(some odd? %) (gen/vector gen/int))]
(let [v2 (transform [(filterer odd?) LAST] inc v)
[pred (gen/elements [odd? even?])
v (gen/such-that #(some pred %) (gen/vector gen/int))]
(let [v2 (transform [(filterer pred) LAST] inc v)
differing-elems (differing-elements v v2)]
(and (= (count v2) (count v))
(= (count differing-elems) 1)
(every? even? (drop (first differing-elems) v2))
(every? (complement pred) (drop (first differing-elems) v2))
))))
;; max sizes prevent too much data from being generated and keeps test from taking forever