Commit 4ade4957 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli

Add bench and longish XML

parent 1aa22af1
module Main where
import PUBMED.Parser
import Test.Tasty.Bench
main :: IO ()
main = defaultMain
[ bgroup "PUBMED"
[ bench "parser small" $ whnfIO (parsePubMedFile "test/test-corpus/pubmed-29768149.xml")
, bench "parser medium" $ whnfIO (parsePubMedFile "test/test-corpus/pubmed_long.xml")
]
]
...@@ -21,6 +21,7 @@ extra-source-files: ...@@ -21,6 +21,7 @@ extra-source-files:
data-files: data-files:
test/test-corpus/pubmed-29768149.xml test/test-corpus/pubmed-29768149.xml
test/test-corpus/pubmed_long.xml
source-repository head source-repository head
type: git type: git
...@@ -140,3 +141,12 @@ test-suite crawlerPubMed-test ...@@ -140,3 +141,12 @@ test-suite crawlerPubMed-test
, text , text
, time , time
default-language: Haskell2010 default-language: Haskell2010
benchmark bench-foo
type: exitcode-stdio-1.0
hs-source-dirs: bench
main-is: Main.hs
build-depends:
base
, crawlerPubMed
, tasty-bench
...@@ -79,4 +79,3 @@ tests: ...@@ -79,4 +79,3 @@ tests:
- -with-rtsopts=-N - -with-rtsopts=-N
dependencies: dependencies:
- crawlerPubMed - crawlerPubMed
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment