diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-10 21:40:55 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-10 21:40:55 -0800 |
| commit | fe3d8ea4185faee8e1b2aaafa530f598d8b96e85 (patch) | |
| tree | 60bafa3cf2232cc0a03a5890079184e62dcd7f38 | |
| parent | b307b647ffec1f3052ad07451acc0a5c856cf86d (diff) | |
Test suite: Don't print 'expected' in red.
| -rw-r--r-- | src/Tests/Helpers.hs | 10 |
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) |