diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2014-08-01 13:40:26 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-08-01 13:40:26 -0700 |
| commit | 36c9537b905ab781fd4c6ac34bf68682d51d5e41 (patch) | |
| tree | f08d950909226927af35280ca3ca5cbf624de4cd | |
| parent | 836d1f06bb4ea38681c7daf8c8446a7c1be7716e (diff) | |
| download | pandoc-36c9537b905ab781fd4c6ac34bf68682d51d5e41.tar.gz | |
benchmark: use only test suite for benchmark.
This way the benchmarks don't take so long to run.
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index 0dc26ad00..bf67eaa4d 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -44,10 +44,9 @@ main = do args <- getArgs (conf,_) <- parseArgs defaultConfig{ cfgSamples = Last $ Just 20 } defaultOptions args - inp <- readFile "README" - inp2 <- readFile "tests/testsuite.txt" + inp <- readFile "tests/testsuite.txt" let opts = def{ readerSmart = True } - let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2) + let doc = readMarkdown opts inp let readers' = [(n,r) | (n, StringReader r) <- readers] let readerBs = mapMaybe (readerBench doc) $ filter (\(n,_) -> n /="haddock") readers' |