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

[tests] rename Hash module

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-06 11:48:08 +01:00
parent d18900c2e0
commit e82c0524e4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/KATHash.hs → tests/Hash.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE ExistentialQuantification #-}
module KATHash module Hash
( tests ( tests
) where ) where

4
tests/Tests.hs
View File

@ -11,7 +11,7 @@ import qualified Crypto.Cipher.Salsa as Salsa
import qualified Crypto.MAC.Poly1305 as Poly1305 import qualified Crypto.MAC.Poly1305 as Poly1305
import qualified Crypto.Internal.ByteArray as B (convert) import qualified Crypto.Internal.ByteArray as B (convert)
import qualified KATHash import qualified Hash
import qualified KAT_HMAC import qualified KAT_HMAC
import qualified KAT_PBKDF2 import qualified KAT_PBKDF2
import qualified KAT_Curve25519 import qualified KAT_Curve25519
@ -79,7 +79,7 @@ tests = testGroup "cryptonite"
msg = B.pack $ take totalLen $ concat (replicate 10 [1..255]) msg = B.pack $ take totalLen $ concat (replicate 10 [1..255])
in Poly1305.auth key msg == Poly1305.finalize (foldr (flip Poly1305.update) (Poly1305.initialize key) (chunks chunkLen msg)) in Poly1305.auth key msg == Poly1305.finalize (foldr (flip Poly1305.update) (Poly1305.initialize key) (chunks chunkLen msg))
] ]
, KATHash.tests , Hash.tests
, KAT_HMAC.tests , KAT_HMAC.tests
, KAT_Curve25519.tests , KAT_Curve25519.tests
, KAT_Ed25519.tests , KAT_Ed25519.tests