From d0cb713ccb9dc10b8c73294b9992116dbb769655 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sat, 23 May 2015 16:22:58 +0100
Subject: [PATCH] [tests] only generate prime > 48 bits

---
 tests/Number.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/Number.hs b/tests/Number.hs
index 3e7f2dc..1131d50 100644
--- a/tests/Number.hs
+++ b/tests/Number.hs
@@ -29,7 +29,7 @@ tests = testGroup "number"
         let r = withTestDRG testDRG $ generateMax range
          in 0 <= r && r < range
     , testProperty "generate-prime" $ \testDRG (Positive baseBits) ->
-        let bits  = 32 + baseBits -- no point generating lower than 32 bits ..
+        let bits  = 48 + baseBits -- no point generating lower than 48 bits ..
             prime = withTestDRG testDRG $ generatePrime bits
         -- with small base bits numbers, the probability that we "cross" this bit size ness
         -- to the next is quite high, as the number generated has two highest bit set.