diff options
author | Kiwamu Okabe <kiwamu@debian.or.jp> | 2012-02-28 01:49:16 +0900 |
---|---|---|
committer | Kiwamu Okabe <kiwamu@debian.or.jp> | 2012-02-28 01:49:16 +0900 |
commit | b27a86d9758512d85d052a9a46917a54eb3da035 (patch) | |
tree | 43171a5211b250025cc85e6994a6a516aad5668f /src/Tests/Helpers.hs | |
parent | 6ac52ff209b172129452cd464d840b3c73c85c01 (diff) |
Imported Upstream version 1.9.1.1
Diffstat (limited to 'src/Tests/Helpers.hs')
-rw-r--r-- | src/Tests/Helpers.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/Tests/Helpers.hs b/src/Tests/Helpers.hs index b8d6b83a7..66879efed 100644 --- a/src/Tests/Helpers.hs +++ b/src/Tests/Helpers.hs @@ -69,17 +69,15 @@ 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 6 =?> +infix 5 =?> (=?>) :: a -> b -> (a,b) x =?> y = (x, y) |