Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Remove unnecessary benchmarks #142

Merged
merged 1 commit into from Jun 30, 2019
Merged

Remove unnecessary benchmarks #142

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
64 changes: 0 additions & 64 deletions bench/Main.hs
View file
Open in desktop
@@ -1,74 +1,10 @@
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Main where

import Control.Monad
import Criterion.Main
import Data.List
import Data.Semigroup ((<>))
import Data.Word
import Foreign
import HaskellWorks.Data.Json.Standard.Cursor.Internal.Blank
import HaskellWorks.Data.Json.Standard.Cursor.Internal.MakeIndex
import System.IO.MMap

import qualified Data.ByteString as BS
import qualified Data.ByteString.Internal as BSI
import qualified HaskellWorks.Data.Json.Standard.Cursor.Fast as FAST
import qualified HaskellWorks.Data.Json.Standard.Cursor.Slow as SLOW
import qualified System.Directory as IO

setupEnvJson :: FilePath -> IO BS.ByteString
setupEnvJson filepath = do
(fptr :: ForeignPtr Word8, offset, size) <- mmapFileForeignPtr filepath ReadOnly Nothing
let !bs = BSI.fromForeignPtr (castForeignPtr fptr) offset size
return bs

jsonToInterestBits3 :: [BS.ByteString] -> [BS.ByteString]
jsonToInterestBits3 = blankedJsonToInterestBits . blankJson

makeBenchBlankJson :: IO [Benchmark]
makeBenchBlankJson = do
entries <- IO.listDirectory "corpus/bench"
let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
benchmarks <- forM files $ \file -> return
[ env (setupEnvJson file) $ \bs -> bgroup file
[ bench "Run blankJson" (whnf (BS.concat . blankJson) [bs])
]
]

return (join benchmarks)

makeBenchJsonToInterestBits :: IO [Benchmark]
makeBenchJsonToInterestBits = do
entries <- IO.listDirectory "corpus/bench"
let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
benchmarks <- forM files $ \file -> return
[ env (setupEnvJson file) $ \bs -> bgroup file
[ bench "Run blankJson" (whnf (BS.concat . jsonToInterestBits3) [bs])
]
]

return (join benchmarks)

makeBenchMakeCursor :: IO [Benchmark]
makeBenchMakeCursor = do
entries <- IO.listDirectory "corpus/bench"
let files = ("corpus/bench/" ++) <$> (".json" `isSuffixOf`) `filter` entries
benchmarks <- forM files $ \file -> return
[ env (setupEnvJson file) $ \bs -> bgroup file
[ bench "Run slow make cursor" (whnf SLOW.fromByteString bs)
, bench "Run fast make cursor" (whnf FAST.fromByteString bs)
]
]

return (join benchmarks)

main :: IO ()
main = do
benchmarks <- fmap mconcat $ sequence $ mempty
<> [makeBenchBlankJson]
<> [makeBenchJsonToInterestBits]
<> [makeBenchMakeCursor]
defaultMain benchmarks