diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-01-31 20:56:20 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-01-31 20:56:20 -0800 |
commit | 7c424b315cb814b952d9bd9d5f027beb70169bff (patch) | |
tree | 95fc61980e1588da792832fa3d40c8f0d04863b5 /test/test-pandoc.hs | |
parent | fdf7f07f6269238dacae7dc90068f64d4666367e (diff) | |
download | pandoc-7c424b315cb814b952d9bd9d5f027beb70169bff.tar.gz |
Tests: avoid calling findPandoc multiple times.
Diffstat (limited to 'test/test-pandoc.hs')
-rw-r--r-- | test/test-pandoc.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test/test-pandoc.hs b/test/test-pandoc.hs index 946a676e0..64f381021 100644 --- a/test/test-pandoc.hs +++ b/test/test-pandoc.hs @@ -44,9 +44,10 @@ import qualified Tests.Writers.TEI import Tests.Helpers (findPandoc) import Text.Pandoc.Shared (inDirectory) -tests :: TestTree -tests = testGroup "pandoc tests" [ Tests.Command.tests - , testGroup "Old" Tests.Old.tests +tests :: FilePath -> TestTree +tests pandocPath = testGroup "pandoc tests" + [ Tests.Command.tests pandocPath + , testGroup "Old" (Tests.Old.tests pandocPath) , testGroup "Shared" Tests.Shared.tests , testGroup "Writers" [ testGroup "Native" Tests.Writers.Native.tests @@ -92,4 +93,4 @@ main = do inDirectory "test" $ do fp <- findPandoc putStrLn $ "Using pandoc executable at " ++ fp - defaultMain tests + defaultMain $ tests fp |