diff options
| -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) |