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

Command tests: just findPandoc once.

Browse source
This commit is contained in:
John MacFarlane 2017-03-14 23:39:28 +01:00
parent 14edbd2967
commit 93c49a2865
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/Tests/Command.hs
View file

@ -50,9 +50,10 @@ runTest testname cmd inp norm = testCase testname $ do
tests :: TestTree
tests = unsafePerformIO $ do
pandocpath <- findPandoc
files <- filter (".md" `isSuffixOf`) <$>
getDirectoryContents "command"
let cmds = map extractCommandTest files
let cmds = map (extractCommandTest pandocpath) files
return $ testGroup "Command:" cmds
isCodeBlock :: Block -> Bool
@ -80,9 +81,8 @@ runCommandTest pandocpath (num, code) =
shcmd = trimr $ takeDirectory pandocpath </> cmd
in runTest ("#" ++ show num) shcmd input norm
extractCommandTest :: FilePath -> TestTree
extractCommandTest fp = unsafePerformIO $ do
pandocpath <- findPandoc
extractCommandTest :: FilePath -> FilePath -> TestTree
extractCommandTest pandocpath fp = unsafePerformIO $ do
contents <- UTF8.readFile ("command" </> fp)
Pandoc _ blocks <- runIOorExplode (readMarkdown
def{ readerExtensions = pandocExtensions } contents)