diff options
Diffstat (limited to 'bench')
-rw-r--r-- | bench/Main.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/bench/Main.hs b/bench/Main.hs new file mode 100644 index 0000000..5309cd9 --- /dev/null +++ b/bench/Main.hs | |||
@@ -0,0 +1,18 @@ | |||
1 | module Main (main) where | ||
2 | |||
3 | import Criterion.Main | ||
4 | import Data.ByteString as BS | ||
5 | import Data.ByteString.Base32 as Base32 | ||
6 | |||
7 | |||
8 | main :: IO () | ||
9 | main = defaultMain | ||
10 | [ bench "encode/1M" $ nf encode $ BS.replicate 1000000 0x8e | ||
11 | , bench "encode/5M" $ nf encode $ BS.replicate 5000000 0x8e | ||
12 | |||
13 | , bench "decode/regular/1M" $ nf decode $ BS.replicate 1000000 0x41 | ||
14 | , bench "decode/regular/5M" $ nf decode $ BS.replicate 5000000 0x41 | ||
15 | |||
16 | , bench "decode/lenient/1M" $ nf decodeLenient $ BS.replicate 1000000 0x41 | ||
17 | , bench "decode/lenient/5M" $ nf decodeLenient $ BS.replicate 5000000 0x41 | ||
18 | ] \ No newline at end of file | ||