Permalink
Browse files

adopt latest clojure.data.generators

  • Loading branch information...
1 parent 862361d commit f7d531ba4969ef21ddd898f78812624175ebd7cf Stuart Halloway committed Feb 9, 2013
Showing with 9 additions and 5 deletions.
  1. +6 −1 pom.xml
  2. +3 −4 src/main/clojure/clojure/test/generative/runner.clj
View
@@ -51,6 +51,11 @@
</repositories>
<dependencies>
+ <!-- <dependency> -->
+ <!-- <groupId>org.clojure</groupId> -->
+ <!-- <artifactId>clojure</artifactId> -->
+ <!-- <version>1.5.0-beta12</version> -->
+ <!-- </dependency> -->
<dependency>
<groupId>org.clojure</groupId>
<artifactId>tools.namespace</artifactId>
@@ -59,7 +64,7 @@
<dependency>
<groupId>org.clojure</groupId>
<artifactId>data.generators</artifactId>
- <version>0.1.0</version>
+ <version>0.1.2</version>
</dependency>
<dependency>
<groupId>ch.qos.logback</groupId>
@@ -124,10 +124,9 @@
(let [seed (+ % 42)
name (:name test)
f (:fn test)]
- (binding [gen/*seed* seed
- gen/*rnd* (java.util.Random. seed)
+ (binding [gen/*rnd* (java.util.Random. seed)
*failed* (promise)]
- (event/report :test/test :tags #{:begin} :test/seed gen/*seed* :name name)
+ (event/report :test/test :tags #{:begin} :test/seed seed :name name)
(loop [iter 0
[input & more] ((:inputs test))]
(let [now (System/currentTimeMillis)
@@ -191,7 +190,7 @@
:fn fn to test
:inputs fn returning a (possibly infinite!) sequence of inputs
- All input generation should use gen/*seed* and gen/*rnd*
+ All input generation should use and gen/*rnd*
if a source of pseudo-randomness is needed."))
(extend-protocol TestContainer

0 comments on commit f7d531b

Please sign in to comment.