haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed confusing test output

Browse Source 
darcs-hash:20080120000022-a4fee-40ee6afa3b3d4d44dee7b2a5d03ce34ec226a5f3
This commit is contained in:
Henning Guenther 2008-01-19 16:00:22 -08:00
parent ce37d090af
commit 8b554f9369
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Test/Tester.hs
View File

@ -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