From d9913a81f8b86dc6ba9c0fc578c88b7d2af10d88 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 23 May 2015 16:06:02 +0100 Subject: [PATCH] [tests] fix generate prime test to only start prime generation above 32 bits --- tests/Number.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/Number.hs b/tests/Number.hs index 944465d..3e7f2dc 100644 --- a/tests/Number.hs +++ b/tests/Number.hs @@ -29,10 +29,10 @@ tests = testGroup "number" let r = withTestDRG testDRG $ generateMax range in 0 <= r && r < range , testProperty "generate-prime" $ \testDRG (Positive baseBits) -> - let bits = 8 + baseBits + let bits = 32 + baseBits -- no point generating lower than 32 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. -- - in bits == numBits prime || (if baseBits < 80 then (bits + 1) == numBits prime else False) + in bits == numBits prime || (if baseBits < 64 then (bits + 1) == numBits prime else False) ]