Add some benchmarks

benchmarks/bench.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Criterion.Main
+import           Data.Aeson     (Value (..))
+import           Expr           (Expr (..))
+import           Fake           (eval, runFakeT)
+
+
+exec :: Expr -> IO Value
+exec expr = runFakeT (Just 1) (eval expr)
+
+
+main :: IO ()
+main = defaultMain
+  [ bgroup "ids" [ bench "ulid" $ nfIO (exec "ulid")
+                 , bench "uuid1" $ nfIO (exec "uuid1")
+                 , bench "uuid4" $ nfIO (exec "uuid4") ]
+  , bgroup "numbers" [ bench "randomInt-0-100"  $ nfIO (exec "randomInt(0, 100)" )
+                     , bench "randomInt-0-1000" $ nfIO (exec "randomInt(0, 1000)" ) ]
+  ]

package.yaml

@@ -74,6 +74,7 @@ tests:
       - -with-rtsopts=-N
     dependencies:
       - fake-json
+
   fake-json-doctest:
     main: doctests.hs
     source-dirs: tests
@@ -82,6 +83,14 @@ tests:
       - Glob
       - doctest
 
+benchmarks:
+  fake-json-benchmarks:
+    main: bench.hs
+    source-dirs: benchmarks
+    dependencies:
+      - fake-json
+      - criterion
+
 flags:
   static:
     description: Pass -static to ghc when linking the binary.