Add benchmark suite

expipiplus1 · Nov 18, 2015 · dfd3fc1 · dfd3fc1
1 parent 9890a9f
commit dfd3fc1
Show file tree

Hide file tree

Showing 2 changed files with 52 additions and 0 deletions.
diff --git a/bench/Bench.hs b/bench/Bench.hs
@@ -0,0 +1,36 @@
+module Main where
+
+import Criterion.Main
+import Data.CReal.Internal
+
+main :: IO ()
+main = defaultMain [ bgroup "pi" [ bench "0"    $ whnf (pi `atPrecision`) 0
+                                 , bench "4"    $ whnf (pi `atPrecision`) 4
+                                 , bench "16"   $ whnf (pi `atPrecision`) 16
+                                 , bench "64"   $ whnf (pi `atPrecision`) 64
+                                 , bench "256"  $ whnf (pi `atPrecision`) 256
+                                 , bench "1024" $ whnf (pi `atPrecision`) 1024
+                                 ]
+                   , bgroup "sin 1" [ bench "0"    $ whnf (sin 1 `atPrecision`) 0
+                                    , bench "4"    $ whnf (sin 1 `atPrecision`) 4
+                                    , bench "16"   $ whnf (sin 1 `atPrecision`) 16
+                                    , bench "64"   $ whnf (sin 1 `atPrecision`) 64
+                                    , bench "256"  $ whnf (sin 1 `atPrecision`) 256
+                                    , bench "1024" $ whnf (sin 1 `atPrecision`) 1024
+                                 ]
+                   , bgroup "sin (π/4)" [ bench "0"    $ whnf (sin (pi/4) `atPrecision`) 0
+                                        , bench "4"    $ whnf (sin (pi/4) `atPrecision`) 4
+                                        , bench "16"   $ whnf (sin (pi/4) `atPrecision`) 16
+                                        , bench "64"   $ whnf (sin (pi/4) `atPrecision`) 64
+                                        , bench "256"  $ whnf (sin (pi/4) `atPrecision`) 256
+                                        , bench "1024" $ whnf (sin (pi/4) `atPrecision`) 1024
+                                 ]
+                   , bgroup "asin (π/4)" [ bench "0"    $ whnf (asin (pi/4) `atPrecision`) 0
+                                         , bench "4"    $ whnf (asin (pi/4) `atPrecision`) 4
+                                         , bench "16"   $ whnf (asin (pi/4) `atPrecision`) 16
+                                         , bench "64"   $ whnf (asin (pi/4) `atPrecision`) 64
+                                         , bench "256"  $ whnf (asin (pi/4) `atPrecision`) 256
+                                         , bench "1024" $ whnf (asin (pi/4) `atPrecision`) 1024
+                                 ]
+                                 ]
+
diff --git a/exact-real.cabal b/exact-real.cabal
@@ -36,6 +36,22 @@ library
   ghc-options:
     -Wall
 
+benchmark bench
+  default-language:
+    Haskell2010
+  type:
+    exitcode-stdio-1.0
+  ghc-options:
+    -Wall -threaded -O2
+  hs-source-dirs:
+    bench
+  main-is:
+    Bench.hs
+  build-depends:
+    base        >= 4 && < 5,
+    criterion   >= 1.1 && < 1.2,
+    exact-real
+
 test-suite test
   default-language:
     Haskell2010