From dc1da8dfcda2ba7b18449046569aded289864f5a Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Thu, 25 Jun 2015 16:27:27 -0400 Subject: [PATCH] improve test --- test/clj/com/rpl/specter/core_test.clj | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/test/clj/com/rpl/specter/core_test.clj b/test/clj/com/rpl/specter/core_test.clj index 5e580c2..0111004 100644 --- a/test/clj/com/rpl/specter/core_test.clj +++ b/test/clj/com/rpl/specter/core_test.clj @@ -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