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 13:35:01 -04:00
parent b30d343290
commit 7520dd7e38
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -106,9 +106,11 @@
(defspec transform-filterer-all-equivalency (defspec transform-filterer-all-equivalency
(prop/for-all (prop/for-all
[v (gen/vector gen/int)] [v (gen/vector gen/int)
(let [v2 (transform [(filterer odd?) ALL] inc v) pred (gen/elements [even? odd?])
v3 (transform [ALL odd?] inc v)] updater (gen/elements [inc dec])]
(let [v2 (transform [(filterer pred) ALL] updater v)
v3 (transform [ALL pred] updater v)]
(= v2 v3)) (= v2 v3))
)) ))