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

[tests] add a test for prime number

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-23 15:55:05 +01:00
parent bc4a55ff74
commit e989d2a404
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/Number.hs
View File

@ -4,6 +4,7 @@ import Imports
import Crypto.Number.Basic import Crypto.Number.Basic
import Crypto.Number.Generate import Crypto.Number.Generate
import Crypto.Number.Prime
import Data.Bits import Data.Bits
tests = testGroup "number" tests = testGroup "number"
@ -27,4 +28,11 @@ tests = testGroup "number"
, testProperty "generate-range" $ \testDRG (Positive range) -> , testProperty "generate-range" $ \testDRG (Positive range) ->
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) ->
let bits = 8 + baseBits
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)
] ]