From 7520dd7e388227c3189b24b6a3415127bfc6f953 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Thu, 25 Jun 2015 13:35:01 -0400 Subject: [PATCH] improve test --- test/clj/com/rpl/specter/core_test.clj | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/test/clj/com/rpl/specter/core_test.clj b/test/clj/com/rpl/specter/core_test.clj index 5e94f01..5e580c2 100644 --- a/test/clj/com/rpl/specter/core_test.clj +++ b/test/clj/com/rpl/specter/core_test.clj @@ -106,9 +106,11 @@ (defspec transform-filterer-all-equivalency (prop/for-all - [v (gen/vector gen/int)] - (let [v2 (transform [(filterer odd?) ALL] inc v) - v3 (transform [ALL odd?] inc v)] + [v (gen/vector gen/int) + pred (gen/elements [even? odd?]) + updater (gen/elements [inc dec])] + (let [v2 (transform [(filterer pred) ALL] updater v) + v3 (transform [ALL pred] updater v)] (= v2 v3)) ))