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

ASCII test cases

Browse Source 
darcs-hash:20080119233058-a4fee-e903ea97491b95c8278d925553b50589a906a7cd
This commit is contained in:
Henning Guenther 2008-01-19 15:30:58 -08:00
parent 71c645029b
commit 8b29980edb
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Test/Tests.hs
View File

@ -1,10 +1,21 @@
module Test.Tests where module Test.Tests where
import Data.Encoding import Data.Encoding
import Data.Encoding.ASCII
import Data.Encoding.UTF8 import Data.Encoding.UTF8
import Test.Tester import Test.Tester
import Test.HUnit import Test.HUnit
asciiTests :: Test
asciiTests = TestList $ map test $
[EncodingTest ASCII
"Hello, world!"
[0x48,0x65,0x6C,0x6C,0x6F,0x2C,0x20,0x77,0x6F,0x72,0x6C,0x64,0x21]
,EncodingError ASCII
"\x0041\x2262\x0391\x002E"
(HasNoRepresentation '\x2262')
]
utf8Tests :: Test utf8Tests :: Test
utf8Tests = TestList $ map test $ utf8Tests = TestList $ map test $
-- Simple encoding tests -- Simple encoding tests