haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[tests] only generate prime > 48 bits

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-23 16:22:58 +01:00
parent d9913a81f8
commit d0cb713ccb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/Number.hs
View File

@ -29,7 +29,7 @@ tests = testGroup "number"
let r = withTestDRG testDRG $ generateMax range let r = withTestDRG testDRG $ generateMax range
in 0 <= r && r < range in 0 <= r && r < range
, testProperty "generate-prime" $ \testDRG (Positive baseBits) -> , 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 prime = withTestDRG testDRG $ generatePrime bits
-- with small base bits numbers, the probability that we "cross" this bit size ness -- 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. -- to the next is quite high, as the number generated has two highest bit set.