From fe3d8ea4185faee8e1b2aaafa530f598d8b96e85 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 10 Feb 2012 21:40:55 -0800 Subject: Test suite: Don't print 'expected' in red. --- src/Tests/Helpers.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/Tests/Helpers.hs b/src/Tests/Helpers.hs index bd5a38869..66879efed 100644 --- a/src/Tests/Helpers.hs +++ b/src/Tests/Helpers.hs @@ -69,16 +69,14 @@ test fn name (input, expected) = vividize :: (DI,String) -> String vividize (B,s) = s -vividize (_,s) = vivid s +vividize (F,s) = s +vividize (S,s) = setSGRCode [SetColor Background Dull Red + , SetColor Foreground Vivid White] ++ s + ++ setSGRCode [Reset] property :: QP.Testable a => TestName -> a -> Test property = testProperty -vivid :: String -> String -vivid s = setSGRCode [SetColor Background Dull Red - , SetColor Foreground Vivid White] ++ s - ++ setSGRCode [Reset] - infix 5 =?> (=?>) :: a -> b -> (a,b) x =?> y = (x, y) -- cgit v1.2.3