From 8b554f9369bfa4bf4269c14c41dff4d0e7e4d9db Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Sat, 19 Jan 2008 16:00:22 -0800 Subject: [PATCH] Fixed confusing test output darcs-hash:20080120000022-a4fee-40ee6afa3b3d4d44dee7b2a5d03ce34ec226a5f3 --- Test/Tester.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Test/Tester.hs b/Test/Tester.hs index 31f5166..cacd97a 100644 --- a/Test/Tester.hs +++ b/Test/Tester.hs @@ -21,15 +21,15 @@ instance Testable EncodingTest where [TestLabel (show enc ++ " encodable") (TestCase $ (all (encodable enc) src) @=? True) ,TestLabel (show enc ++ " encoding (strict)") - (TestCase $ (encode enc src) @=? bstr) + (TestCase $ bstr @=? (encode enc src)) ,TestLabel (show enc ++ " encoding (lazy)") - (TestCase $ (encodeLazy enc src) @=? lbstr) + (TestCase $ lbstr @=? (encodeLazy enc src)) ,TestLabel (show enc ++ " decodable") (TestCase $ (decodable enc bstr) @=? True) ,TestLabel (show enc ++ " decoding (strict)") - (TestCase $ (decode enc bstr) @=? src) + (TestCase $ src @=? (decode enc bstr)) ,TestLabel (show enc ++ " decoding (lazy)") - (TestCase $ (decodeLazy enc lbstr) @=? src) + (TestCase $ src @=? (decodeLazy enc lbstr)) ] where bstr = BS.pack trg