summaryrefslogtreecommitdiff
path: root/src/Tests/Helpers.hs
diff options
context:
space:
mode:
authorKiwamu Okabe <kiwamu@debian.or.jp>2012-02-28 01:49:16 +0900
committerKiwamu Okabe <kiwamu@debian.or.jp>2012-02-28 01:49:16 +0900
commitb27a86d9758512d85d052a9a46917a54eb3da035 (patch)
tree43171a5211b250025cc85e6994a6a516aad5668f /src/Tests/Helpers.hs
parent6ac52ff209b172129452cd464d840b3c73c85c01 (diff)
Imported Upstream version 1.9.1.1
Diffstat (limited to 'src/Tests/Helpers.hs')
-rw-r--r--src/Tests/Helpers.hs12
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)