Only print failure message if unexpected
commita2a08189a6682f236800652eeb1b8b319574fd43
authorMichael Snoyman <michael@snoyman.com>
dateSat 24 Nov 2012, 18:45 (14 years ago)
parent0a8e98e
Stackage/Test.hs+1−1
@@ -54,7 +54,7 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
5454 then do
5555 removeFile logfile
5656 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
5858 rm_r dir
5959 return $! prevPassed && (passed || expectedFailure)
6060 where