summaryrefslogtreecommitdiff
path: root/src/Tests/Helpers.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-02-10 21:40:55 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-02-10 21:40:55 -0800
commitfe3d8ea4185faee8e1b2aaafa530f598d8b96e85 (patch)
tree60bafa3cf2232cc0a03a5890079184e62dcd7f38 /src/Tests/Helpers.hs
parentb307b647ffec1f3052ad07451acc0a5c856cf86d (diff)
Test suite: Don't print 'expected' in red.
Diffstat (limited to 'src/Tests/Helpers.hs')
-rw-r--r--src/Tests/Helpers.hs10
1 files 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)