From fe3d8ea4185faee8e1b2aaafa530f598d8b96e85 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
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(-)

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