mirror of https://github.com/voidlizard/hbs2
22 lines
1.0 KiB
Haskell
22 lines
1.0 KiB
Haskell
module RandomBench (benchRandom) where
|
|
|
|
import Criterion
|
|
|
|
import Data.ByteString (ByteString)
|
|
import Crypto.Saltine.Core.Utils
|
|
|
|
benchRandom = bgroup "random"
|
|
[ bench "32 B" $ nfIO (randomByteString 32 :: IO ByteString)
|
|
, bench "128 B" $ nfIO (randomByteString 128 :: IO ByteString)
|
|
, bench "512 B" $ nfIO (randomByteString 512 :: IO ByteString)
|
|
, bench "2 KB" $ nfIO (randomByteString 2000 :: IO ByteString)
|
|
, bench "8 KB" $ nfIO (randomByteString 8000 :: IO ByteString)
|
|
, bench "32 KB" $ nfIO (randomByteString 32000 :: IO ByteString)
|
|
, bench "128 KB" $ nfIO (randomByteString 128000 :: IO ByteString)
|
|
, bench "512 KB" $ nfIO (randomByteString 512000 :: IO ByteString)
|
|
, bench "2 MB" $ nfIO (randomByteString 2000000 :: IO ByteString)
|
|
, bench "8 MB" $ nfIO (randomByteString 8000000 :: IO ByteString)
|
|
, bench "32 MB" $ nfIO (randomByteString 32000000 :: IO ByteString)
|
|
, bench "128 MB" $ nfIO (randomByteString 128000000 :: IO ByteString)
|
|
]
|