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

[tests] generate smaller number in one of the case

Browse Source
This commit is contained in:
Vincent Hanquez 2015-06-01 07:47:40 +01:00
parent d873564c54
commit 2c112b8877
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/Utils.hs
View File

@ -54,7 +54,7 @@ newtype QAInteger = QAInteger { getQAInteger :: Integer }
instance Arbitrary QAInteger where instance Arbitrary QAInteger where
arbitrary = oneof arbitrary = oneof
[ QAInteger . fromIntegral <$> (choose (0, 655536) :: Gen Int) -- small integer [ QAInteger . fromIntegral <$> (choose (0, 65536) :: Gen Int) -- small integer
, larger <$> choose (0,4096) <*> choose (0, 65536) -- medium integer , larger <$> choose (0,4096) <*> choose (0, 65536) -- medium integer
, QAInteger . os2ip . B.pack <$> (choose (0,32) >>= \n -> replicateM n arbitrary) -- [ 0 .. 2^32 ] sized integer , QAInteger . os2ip . B.pack <$> (choose (0,32) >>= \n -> replicateM n arbitrary) -- [ 0 .. 2^32 ] sized integer
] ]