sandi-0.2.2: bench-src/Codec/Binary/Base64Bench.hs

module Codec.Binary.Base64Bench where

import Criterion.Main (bench, nf)

import Codec.Binary.Base64

mkBenchs data1M data10M = let
        enc1M = encode data1M
        enc10M = encode data10M
    in
        [ bench "enc base 64 1M" $ nf encode data1M
        , bench "dec base 64 1M" $ nf decode enc1M
        , bench "enc base 64 10M" $ nf encode data10M
        , bench "dec base 64 10M" $ nf decode enc10M
        ]