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

test improvements

Browse source
This commit is contained in:
Nathan Marz 2016-04-18 14:25:33 -04:00
parent c861756836
commit cd713f1439
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -248,7 +248,7 @@
afn (gen/elements [inc dec #(* % 2)]) afn (gen/elements [inc dec #(* % 2)])
bfn (gen/elements [inc dec #(* % 2)]) bfn (gen/elements [inc dec #(* % 2)])
cfn (gen/elements [inc dec #(* % 2)])] cfn (gen/elements [inc dec #(* % 2)])]
(and (= (first (s/select (s/parser afn bfn) i)) (and (= (s/select-one! (s/parser afn bfn) i)
(afn i)) (afn i))
(= (s/transform (s/parser afn bfn) cfn i) (= (s/transform (s/parser afn bfn) cfn i)
(-> i afn cfn bfn)) (-> i afn cfn bfn))
@ -767,7 +767,7 @@
clojure.lang.PersistentQueue/EMPTY clojure.lang.PersistentQueue/EMPTY
coll)) coll))
(defspec transform-idempotency (defspec transform-idempotency 50
(for-all+ (for-all+
[v1 (gen/vector gen/int) [v1 (gen/vector gen/int)
l1 (gen/list gen/int) l1 (gen/list gen/int)