Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Benchmark: default to sample size of 20 for speed.

Browse source
This commit is contained in:
John MacFarlane 2012-07-27 11:13:18 -07:00
parent 5b6e70c3b5
commit fc738c6315
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
benchmark/benchmark-pandoc.hs
View file

@ -1,8 +1,11 @@
import Text.Pandoc import Text.Pandoc
import Text.Pandoc.Shared (readDataFile, normalize) import Text.Pandoc.Shared (readDataFile, normalize)
import Criterion.Main import Criterion.Main
import Criterion.Config
import Data.List (isSuffixOf) import Data.List (isSuffixOf)
import Text.JSON.Generic import Text.JSON.Generic
import System.Environment (getArgs)
import Data.Monoid
readerBench :: Pandoc readerBench :: Pandoc
-> (String, ReaderOptions -> String -> Pandoc) -> (String, ReaderOptions -> String -> Pandoc)
@ -37,12 +40,14 @@ normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) do
main :: IO () main :: IO ()
main = do main = do
args <- getArgs
(conf,_) <- parseArgs defaultConfig{ cfgSamples = Last $ Just 20 } defaultOptions args
inp <- readDataFile (Just ".") "README" inp <- readDataFile (Just ".") "README"
inp2 <- readDataFile (Just ".") "tests/testsuite.txt" inp2 <- readDataFile (Just ".") "tests/testsuite.txt"
let opts = def{ readerSmart = True } let opts = def{ readerSmart = True }
let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2) let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
let readerBs = map (readerBench doc) readers let readerBs = map (readerBench doc) readers
let writers' = [(n,w) | (n, PureStringWriter w) <- writers] let writers' = [(n,w) | (n, PureStringWriter w) <- writers]
defaultMain $ defaultMainWith conf (return ()) $
map (writerBench doc) writers' ++ readerBs ++ normalizeBench doc map (writerBench doc) writers' ++ readerBs ++ normalizeBench doc