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

[hash] fix hash printing

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-02 05:40:47 +01:00
parent cc26ce8ce4
commit 09e83a7f68
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/KATHash.hs
View File

@ -8,6 +8,7 @@ module KATHash
import Crypto.Hash import Crypto.Hash
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Crypto.Internal.ByteArray as B (convertHex)
import Imports import Imports
v0,v1,v2 :: ByteString v0,v1,v2 :: ByteString
@ -141,8 +142,8 @@ expected = [
"28e361fe8c56e617caa56c28c7c36e5c13be552b77081be82b642f08bb7ef085b9a81910fe98269386b9aacfd2349076c9506126e198f6f6ad44c12017ca77b1" ]) "28e361fe8c56e617caa56c28c7c36e5c13be552b77081be82b642f08bb7ef085b9a81910fe98269386b9aacfd2349076c9506126e198f6f6ad44c12017ca77b1" ])
] ]
runhash (HashAlg hashAlg) v = digestToHexByteString $ hashWith hashAlg $ v runhash (HashAlg hashAlg) v = B.convertHex $ hashWith hashAlg $ v
runhashinc (HashAlg hashAlg) v = digestToHexByteString $ hashinc $ v runhashinc (HashAlg hashAlg) v = B.convertHex $ hashinc $ v
where hashinc = hashFinalize . foldl hashUpdate (hashInitWith hashAlg) where hashinc = hashFinalize . foldl hashUpdate (hashInitWith hashAlg)
makeTestAlg (name, hashAlg, results) = makeTestAlg (name, hashAlg, results) =