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

More accurate benchmark for normalize.

Browse source
This commit is contained in:
John MacFarlane 2010-12-30 15:32:34 -08:00
parent e4dedad1c0
commit df0eecfc0e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Benchmark.hs
View file

@ -2,6 +2,7 @@ import Text.Pandoc
import Text.Pandoc.Shared (readDataFile, normalize)
import Criterion.Main
import Data.List (isSuffixOf)
import Text.JSON.Generic
readerBench :: Pandoc
-> (String, ParserState -> String -> Pandoc)
@ -30,13 +31,15 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf
writerWrapText = True
, writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc
normalizeBench :: Pandoc -> Benchmark
normalizeBench doc = bench "normalize" $ whnf normalize doc
normalizeBench :: Pandoc -> [Benchmark]
normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) doc
, bench "normalize - without" $ nf encodeJSON doc
]
main = do
inp <- readDataFile (Just ".") "README"
let ps = defaultParserState{ stateSmart = True }
let doc = readMarkdown ps inp
let readerBs = map (readerBench doc) readers
defaultMain $ map (writerBench doc) writers ++ readerBs ++ [normalizeBench doc]
defaultMain $ map (writerBench doc) writers ++ readerBs ++ normalizeBench doc