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

Avoid warning with tasty-quickcheck-0.9.2

Browse Source
This commit is contained in:
Olivier Chéron 2018-02-04 15:27:45 +01:00
parent 1490f080a5
commit 07be32728e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/KAT_HMAC.hs
View File

@ -132,17 +132,17 @@ instance HashAlgorithm a => Arbitrary (MacIncrementalList a) where
macIncrementalTests :: [TestTree] macIncrementalTests :: [TestTree]
macIncrementalTests = macIncrementalTests =
[ testProperties MD5 [ testIncrProperties MD5
, testProperties SHA1 , testIncrProperties SHA1
, testProperties SHA256 , testIncrProperties SHA256
, testProperties SHA3_224 , testIncrProperties SHA3_224
, testProperties SHA3_256 , testIncrProperties SHA3_256
, testProperties SHA3_384 , testIncrProperties SHA3_384
, testProperties SHA3_512 , testIncrProperties SHA3_512
] ]
where where
--testProperties :: HashAlgorithm a => a -> [Property] --testIncrProperties :: HashAlgorithm a => a -> [Property]
testProperties a = testGroup (show a) testIncrProperties a = testGroup (show a)
[ testProperty "list-one" (prop_inc0 a) [ testProperty "list-one" (prop_inc0 a)
, testProperty "list-multi" (prop_inc1 a) , testProperty "list-multi" (prop_inc1 a)
] ]