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

Also test lazy encoding and decoding

Browse Source 
darcs-hash:20080119232950-a4fee-9fe600c6237f05b2e140733483f9b637a3c12812
This commit is contained in:
Henning Guenther 2008-01-19 15:29:50 -08:00
parent 59a8526727
commit 71c645029b
1 changed files with 40 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Test/Tester.hs
View File

@ -4,7 +4,8 @@ module Test.Tester where
import Data.Encoding
import Test.HUnit
import Data.Word
import Data.ByteString (pack)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as LBS
import Control.Exception (catchDyn,evaluate)
data EncodingTest
@ -12,26 +13,56 @@ data EncodingTest
EncodingTest enc String [Word8]
| forall enc. (Encoding enc,Show enc) =>
DecodingError enc [Word8] DecodingException
| forall enc. (Encoding enc,Show enc) =>
EncodingError enc String EncodingException
instance Testable EncodingTest where
test (EncodingTest enc src trg) = TestList
[TestLabel (show enc ++ " encodable")
(TestCase $ (all (encodable enc) src) @=? True)
,TestLabel (show enc ++ " encoding")
,TestLabel (show enc ++ " encoding (strict)")
(TestCase $ (encode enc src) @=? bstr)
,TestLabel (show enc ++ " encoding (lazy)")
(TestCase $ (encodeLazy enc src) @=? lbstr)
,TestLabel (show enc ++ " decodable")
(TestCase $ (decodable enc bstr) @=? True)
,TestLabel (show enc ++ " decoding")
,TestLabel (show enc ++ " decoding (strict)")
(TestCase $ (decode enc bstr) @=? src)
,TestLabel (show enc ++ " decoding (lazy)")
(TestCase $ (decodeLazy enc lbstr) @=? src)
]
where
bstr = pack trg
bstr = BS.pack trg
lbstr = LBS.pack trg
test (DecodingError enc trg what) = TestList
[TestLabel (show enc ++ " not decodable") $
TestCase $ assert $ not $ decodable enc (pack trg)
,TestLabel (show enc ++ " decoding error") $ TestCase $
[TestLabel (show what++" not decodable in "++show enc) $
TestCase $ assert $ not $ decodable enc (BS.pack trg)
,TestLabel (show enc ++ " decoding error (strict)") $ TestCase $
catchDyn (do
evaluate (decode enc (pack trg) == "")
return ())
mapM_ evaluate (decode enc (BS.pack trg))
assertFailure "No exception thrown"
)
(\exc -> exc @=? what)
,TestLabel (show enc ++ " decoding error (lazy)") $ TestCase $
catchDyn (do
mapM_ evaluate (decodeLazy enc (LBS.pack trg))
assertFailure "No exception thrown"
)
(\exc -> exc @=? what)
]
test (EncodingError enc src what) = TestList
[TestLabel (show src ++ " not encodable in " ++ show enc) $
TestCase $ assert $ not $ all (encodable enc) src
,TestLabel (show enc ++ " encoding error (strict)") $ TestCase $
catchDyn (do
evaluate (encode enc src)
assertFailure "No exception thrown"
)
(\exc -> exc @=? what)
,TestLabel (show enc ++ " encoding error (lazy)") $ TestCase $
catchDyn (do
evaluate (encodeLazy enc src)
assertFailure "No exception thrown"
)
(\exc -> exc @=? what)
]