git.iko.soy/stackage
on master help sign in
Only print failure message if unexpected
a2a0818Michael Snoyman
Stackage/Test.hs+1−1
compare with master
unifiedsplit
@@ -54,7 +54,7 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
54 then do
54 then do
55 removeFile logfile
55 removeFile logfile
56 when expectedFailure $ putStrLn $ package ++ " passed, but I didn't think it would."
56 when expectedFailure $ putStrLn $ package ++ " passed, but I didn't think it would."
57− else putStrLn $ "Test suite failed: " ++ package
57+ else unless expectedFailure $ putStrLn $ "Test suite failed: " ++ package
58 rm_r dir
58 rm_r dir
59 return $! prevPassed && (passed || expectedFailure)
59 return $! prevPassed && (passed || expectedFailure)
60 where
60 where