From 2d1dc4100cdbffb756b8b2503379259dd7e89f3d Mon Sep 17 00:00:00 2001 From: Gary Fredericks Date: Sun, 7 Jun 2015 09:00:33 -0500 Subject: [PATCH] TCHECK-50: Add gen/generate for single samples The name `generate` comes from QuickCheck which has a similar function. --- src/main/clojure/clojure/test/check/generators.clj | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/main/clojure/clojure/test/check/generators.clj b/src/main/clojure/clojure/test/check/generators.clj index b3c60c75..b172e3ac 100644 --- a/src/main/clojure/clojure/test/check/generators.clj +++ b/src/main/clojure/clojure/test/check/generators.clj @@ -153,6 +153,16 @@ (take num-samples (sample-seq generator)))) +(defn generate + "Returns a single sample value from the generator, using a default + size of 30." + ([generator] + (generate generator 30)) + ([generator size] + (let [rng (random/make-random)] + (rose/root (call-gen generator rng size))))) + + ;; Internal Helpers ;; ---------------------------------------------------------------------------