haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-12 07:18:31 +01:00
Code Issues Actions 1 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
removeFile logfile
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
return $! prevPassed && (passed || expectedFailure)
where