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

[tests] fix last number test problem

Browse Source
This commit is contained in:
Vincent Hanquez 2015-08-27 15:42:08 +01:00
parent 3af592e997
commit 5f72788041
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

@ -30,7 +30,7 @@ tests = testGroup "number"
, testProperty "generate-param" $ \testDRG (Int1_2901 bits) -> , testProperty "generate-param" $ \testDRG (Int1_2901 bits) ->
let r = withTestDRG testDRG $ generateParams bits (Just SetHighest) False let r = withTestDRG testDRG $ generateParams bits (Just SetHighest) False
in r >= 0 && numBits r == bits && testBit r (bits-1) in r >= 0 && numBits r == bits && testBit r (bits-1)
, testProperty "generate-param2" $ \testDRG (Int0_2901 m1bits) -> , testProperty "generate-param2" $ \testDRG (Int1_2901 m1bits) ->
let bits = m1bits + 1 -- make sure minimum is 2 let bits = m1bits + 1 -- make sure minimum is 2
r = withTestDRG testDRG $ generateParams bits (Just SetTwoHighest) False r = withTestDRG testDRG $ generateParams bits (Just SetTwoHighest) False
in r >= 0 && numBits r == bits && testBit r (bits-1) && testBit r (bits-2) in r >= 0 && numBits r == bits && testBit r (bits-1) && testBit r (bits-2)