From e630eb78cb84ec29ebfb042b39dbcb951cd62c5c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 15 Dec 2016 13:30:53 +0100
Subject: [PATCH] test for #38

---
 tests/foo.ml | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/foo.ml b/tests/foo.ml
index b0aeeee..f375e70 100644
--- a/tests/foo.ml
+++ b/tests/foo.ml
@@ -241,3 +241,10 @@ let strange_string = " \"
 (*$Q & ~max_gen:1000000 ~count:1000000
     (Q.make (fun _ -> ())) (fun () -> true)
 *)
+
+(* issue #38 *)
+(*$Q & ~count:1_000_000 ~max_fail:3_000
+    (Q.make ~print:string_of_int ~small:(fun i -> i) \
+      (fun s -> Random.State.int s 1000)) \
+      (fun i -> i = i + 1)
+*)