diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-09-26 20:58:11 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-09-26 20:58:11 +0400 |
commit | 4756424235c5222a832e1967d54c5ddb369f6fbf (patch) | |
tree | e5683c8d3cf0fbdb04cea29d38ead37aa97a2b8f /bench/Main.hs |
Initial commit
Diffstat (limited to 'bench/Main.hs')
-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 | ||