haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-09 04:47:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Only print failure message if unexpected

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-24 18:45:12 +02:00
parent 0a8e98e821
commit a2a08189a6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/Test.hs
View File

@ -54,7 +54,7 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
then do then do
removeFile logfile removeFile logfile
when expectedFailure $ putStrLn $ package ++ " passed, but I didn't think it would." when expectedFailure $ putStrLn $ package ++ " passed, but I didn't think it would."
else putStrLn $ "Test suite failed: " ++ package else unless expectedFailure $ putStrLn $ "Test suite failed: " ++ package
rm_r dir rm_r dir
return $! prevPassed && (passed || expectedFailure) return $! prevPassed && (passed || expectedFailure)
where where