Tests: Print stderr of invoked programs.

Makes debugging failing tests much easier.
23Skidoo · Sep 12, 2013 · c6550a2 · c6550a2
1 parent 6a0bb83
commit c6550a2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/Tests.hs b/tests/Tests.hs
@@ -97,7 +97,9 @@ getExitCode :: FilePath -> [String] -> FilePath -> IO ExitCode
 getExitCode program args workingDir =
   do bracket (runInteractiveProcess program args (Just workingDir) Nothing)
        (\(inh, outh, errh, _) -> mapM_ hClose [inh, outh, errh])
-       (\(_,_,_,pid) -> waitForProcess pid)
+       (\(_,_,errh,pid) -> do exitCode <- waitForProcess pid
+                              hGetContents errh >>= putStrLn
+                              return exitCode)
 
 mkTestCase :: FilePath -> Int -> Assertion
 mkTestCase dirName numJobs =