git.iko.soy/typeable/pandoc
on master help sign in
Command tests; print stderr when a test fails.
commit7892dcd353ff0efd24ed753061b9be8e556b0177 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 11 Aug 2017, 11:59 (9 years ago) parent54cc8e2
1 file changed+4−1
test/Tests/Command.hs+4−1
test/Tests/Command.hs+4−1
@@ -8,6 +8,7 @@ import System.Directory
88import System.Exit
99import System.FilePath (joinPath, splitDirectories, takeDirectory, (</>))
1010import System.Process
11+import System.IO (stderr, hPutStr)
1112import Test.Tasty
1213import Test.Tasty.HUnit
1314import Tests.Helpers
@@ -46,7 +47,9 @@ runTest testname cmd inp norm = testCase testname $ do
4647 else return
4748 $ TestFailed cmd "expected"
4849 $ getDiff (lines out) (lines norm)
49− else return $ TestError ec
50+ else do
51+ hPutStr stderr err'
52+ return $ TestError ec
5053 assertBool (show result) (result == TestPassed)
5154
5255tests :: TestTree