Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add benchmarks
  • Loading branch information
bos committed Jul 7, 2011
1 parent 2800d5a commit ff302b2
Show file tree
Hide file tree
Showing 3 changed files with 31 additions and 1 deletion.
2 changes: 1 addition & 1 deletion .hgignore
@@ -1,4 +1,4 @@
^dist$
^(?:dist|benchmarks/dist)$
\.(?:aux|eventlog|h[ip]|log|[oa]|orig|prof|ps|swp)$
~$
syntax: glob
Expand Down
16 changes: 16 additions & 0 deletions benchmarks/Benchmarks.hs
@@ -0,0 +1,16 @@
import Criterion.Main
import qualified Data.ByteString.Base16 as B16
import qualified Data.ByteString as B

generate :: Int -> B.ByteString
generate n = B.pack . take n . cycle $ [0..255]

main = defaultMain [
bgroup "encode" [
bench "8" $ whnf B16.encode (generate 8)
, bench "32" $ whnf B16.encode (generate 32)
, bench "128" $ whnf B16.encode (generate 128)
, bench "1024" $ whnf B16.encode (generate 1024)
, bench "65536" $ whnf B16.encode (generate 65536)
]
]
14 changes: 14 additions & 0 deletions benchmarks/base16-bytestring-benchmarks.cabal
@@ -0,0 +1,14 @@
name: base15-bytestring-benchmarks
version: 0
cabal-version: >= 1.8
build-type: Simple

executable bm
main-is: Benchmarks.hs

build-depends:
base,
base16-bytestring,
bytestring,
criterion >= 0.5.0.10,
text >= 0.11.0.8

0 comments on commit ff302b2

Please sign in to comment.