Merge pull request #594 from phadej/bench-escape

Add escape benchmark

Author: bergmark

benchmarks/Escape.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE PackageImports #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Main (main) where
+
+import Prelude ()
+import Prelude.Compat
+
+import Criterion.Main
+import qualified "aeson-benchmarks" Data.Aeson.Parser.UnescapeFFI as FFI
+import qualified "aeson-benchmarks" Data.Aeson.Parser.UnescapePure as Pure
+
+import qualified Data.ByteString.Char8 as BS
+
+n :: Int
+n = 10000
+
+input :: BS.ByteString
+input = BS.concat $ replicate n $ BS.pack "\\\""
+
+main :: IO ()
+main = defaultMain
+    [ bench "ffi"  $ whnf FFI.unescapeText input
+    , bench "pure" $ whnf Pure.unescapeText input
+    ]

benchmarks/aeson-benchmarks.cabal

@@ -80,6 +80,20 @@ library
   ghc-options: -O2 -Wall
   cpp-options: -DGENERICS
 
+executable aeson-benchmark-escape
+  main-is: Escape.hs
+  hs-source-dirs: ../examples .
+  ghc-options: -Wall -O2 -rtsopts
+  build-depends:
+    aeson-benchmarks,
+    base,
+    base-compat,
+    bytestring,
+    criterion >= 1.0,
+    deepseq,
+    ghc-prim,
+    text
+
 executable aeson-benchmark-compare
   main-is: Compare.hs
   hs-source-dirs: ../examples .