Blame src-bench/bench-sha256.hs
|
Packit |
f46cda |
{-# LANGUAGE BangPatterns #-}
|
|
Packit |
f46cda |
|
|
Packit |
f46cda |
import Criterion.Main
|
|
Packit |
f46cda |
import qualified Crypto.Hash.SHA256 as SHA256
|
|
Packit |
f46cda |
import qualified Data.ByteString as B
|
|
Packit |
f46cda |
import qualified Data.ByteString.Lazy as L
|
|
Packit |
f46cda |
|
|
Packit |
f46cda |
benchSize :: Int -> Benchmark
|
|
Packit |
f46cda |
benchSize sz = bs `seq` bench msg (whnf SHA256.hash bs)
|
|
Packit |
f46cda |
where
|
|
Packit |
f46cda |
bs = B.replicate sz 0
|
|
Packit |
f46cda |
msg = "bs-" ++ show sz
|
|
Packit |
f46cda |
|
|
Packit |
f46cda |
main :: IO ()
|
|
Packit |
f46cda |
main = do
|
|
Packit |
f46cda |
let !lbs64x256 = L.fromChunks $ replicate 4 (B.replicate 64 0)
|
|
Packit |
f46cda |
!lbs64x4096 = L.fromChunks $ replicate 64 (B.replicate 64 0)
|
|
Packit |
f46cda |
defaultMain
|
|
Packit |
f46cda |
[ bgroup "cryptohash-sha256"
|
|
Packit |
f46cda |
[ benchSize 0
|
|
Packit |
f46cda |
, benchSize 8
|
|
Packit |
f46cda |
, benchSize 32
|
|
Packit |
f46cda |
, benchSize 64
|
|
Packit |
f46cda |
, benchSize 128
|
|
Packit |
f46cda |
, benchSize 256
|
|
Packit |
f46cda |
, benchSize 1024
|
|
Packit |
f46cda |
, benchSize 4096
|
|
Packit |
f46cda |
, benchSize (128*1024)
|
|
Packit |
f46cda |
, benchSize (1024*1024)
|
|
Packit |
f46cda |
, benchSize (2*1024*1024)
|
|
Packit |
f46cda |
, benchSize (4*1024*1024)
|
|
Packit |
f46cda |
|
|
Packit |
f46cda |
, L.length lbs64x256 `seq` bench "lbs64x256" (whnf SHA256.hashlazy lbs64x256)
|
|
Packit |
f46cda |
, L.length lbs64x4096 `seq` bench "lbs64x4096" (whnf SHA256.hashlazy lbs64x4096)
|
|
Packit |
f46cda |
]
|
|
Packit |
f46cda |
]
|