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

Added ISO2022JP testcase

Browse Source 
darcs-hash:20090225040556-a4fee-38a743dc10cd3eca8b33cc656ba33f6e89354db5
This commit is contained in:
Henning Guenther 2009-02-24 20:05:56 -08:00
parent 0b18661553
commit 0608a57c6b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Test/Tests.hs
View File

@ -18,6 +18,7 @@ import Data.Encoding.ISO885911
import Data.Encoding.ISO885913 import Data.Encoding.ISO885913
import Data.Encoding.ISO885914 import Data.Encoding.ISO885914
import Data.Encoding.JISX0208 import Data.Encoding.JISX0208
import Data.Encoding.ISO2022JP
import Data.Encoding.BootString import Data.Encoding.BootString
import Test.HUnit import Test.HUnit
import Test.QuickCheck hiding (test) import Test.QuickCheck hiding (test)
@ -234,6 +235,13 @@ isoTests :: Test
isoTests = TestList $ map test $ isoTests = TestList $ map test $
[EncodingTest ISO88592 "\x104\x2D8\x141\xA4\x13D\x15A\xA7\xA8\x160\x15E\x164\x179\xAD\x17D\x17B\xB0\x105\x2DB\x142\xB4\x13E\x15B\x2C7\xB8\x161\x15F" [EncodingTest ISO88592 "\x104\x2D8\x141\xA4\x13D\x15A\xA7\xA8\x160\x15E\x164\x179\xAD\x17D\x17B\xB0\x105\x2DB\x142\xB4\x13E\x15B\x2C7\xB8\x161\x15F"
[0xA1..0xBA] [0xA1..0xBA]
-- Taken from GNU iconv library
,EncodingTest ISO2022JP "Japanese (\x65E5\x672C\x8A9E)\t\t\x3053\x3093\x306B\x3061\x306F\n\tJIS -- \x5143\x6C17 \x958B\x767A\n"
[0x4a,0x61,0x70,0x61,0x6e,0x65,0x73,0x65,0x20,0x28,0x1b,0x24,0x42,0x46,0x7c,0x4b
,0x5c,0x38,0x6c,0x1b,0x28,0x42,0x29,0x09,0x09,0x1b,0x24,0x42,0x24,0x33,0x24,0x73
,0x24,0x4b,0x24,0x41,0x24,0x4f,0x1b,0x28,0x42,0x0a,0x09,0x4a,0x49,0x53,0x20,0x20
,0x2d,0x2d,0x20,0x1b,0x24,0x42,0x38,0x35,0x35,0x24,0x1b,0x28,0x42,0x20,0x20,0x1b
,0x24,0x42,0x33,0x2b,0x48,0x2f,0x1b,0x28,0x42,0x0a]
] ]
jisTests :: Test jisTests :: Test