File: Base32Bench.hs

package info (click to toggle)
haskell-sandi 0.3.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 336 kB
  • ctags: 54
  • sloc: haskell: 1,569; ansic: 1,501; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 421 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
module Codec.Binary.Base32Bench where

import Criterion.Main (bench, nf)

import Codec.Binary.Base32

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