@@ -36,12 +36,10 @@ main = do
3636 exitWith ExitSuccess
3737
3838-- | Run test suite.
39−runTestSuite _ _ _ _ = do
40− tempPath <- catch getTemporaryDirectory (\_ -> return ".")
41− (outputPath, hOut) <- openTempFile tempPath "out"
42− runProcess "pandoc" ["--version"] Nothing Nothing Nothing (Just hOut) Nothing >>= waitForProcess
43− output <- readFile outputPath
44− let highlightingSupport = "with syntax highlighting" `isInfixOf` output
39+runTestSuite _ _ pkg _ = do
40+ let isHighlightingKate (Dependency (PackageName "highlighting-kate") _) = True
41+ isHighlightingKate _ = False
42+ let highlightingSupport = any isHighlightingKate $ buildDepends pkg
4543 let testArgs = if highlightingSupport then ["lhs"] else []
4644 let testCmd = "runhaskell -i.. RunTests.hs " ++ unwords testArgs
4745 inDirectory "tests" $ runCommand testCmd >>= waitForProcess >>= exitWith