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

Move tests to subfolder

Browse Source 
Ignore-this: a66b6855c44adcf4008d42633a18dcc0

darcs-hash:20090813043718-a4fee-e9fd245938235a20e79973861c3a4992d20a9d7f
This commit is contained in:
Henning Guenther 2009-08-12 21:37:18 -07:00
parent 73eefc2838
commit dc6c1f142d
2 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
Test/Tester.hs → tests/Test/Tester.hs
View File

26
Test/Tests.hs → tests/Test/Tests.hs
View File

@ -19,6 +19,7 @@ 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.ISO2022JP
import Data.Encoding.GB18030
import Data.Encoding.BootString import Data.Encoding.BootString
import Test.HUnit import Test.HUnit
import Test.QuickCheck hiding (test) import Test.QuickCheck hiding (test)
@ -59,6 +60,8 @@ identityTests = do
quickCheckEncoding ISO885914 quickCheckEncoding ISO885914
putStrLn "for Punycode..." putStrLn "for Punycode..."
quickCheck $ encodingIdentity punycode quickCheck $ encodingIdentity punycode
putStrLn "for GB18030"
quickCheck $ encodingIdentity GB18030
utf8Tests :: Test utf8Tests :: Test
utf8Tests = TestList $ map test $ concat utf8Tests = TestList $ map test $ concat
@ -249,3 +252,26 @@ jisTests = TestList $ map test $
[EncodingTest JISX0208 "\x4E9C" [EncodingTest JISX0208 "\x4E9C"
[0x30,0x21] [0x30,0x21]
] ]
gb18030Tests :: Test
gb18030Tests = TestList $ map test $
[EncodingTest GB18030 "\x0000\x003F\x0040\x007F\x0080\x00BF\x00C0\x00FF\x0100\x3FFF\x4000\x7FFF\x8000\xBFFF\xC000\xEFFF\xF000\xFFFF"
(concat [[0x00]
,[0x3F]
,[0x40]
,[0x7F]
,[0x81,0x30,0x81,0x30]
,[0x81,0x30,0x86,0x37]
,[0x81,0x30,0x86,0x38]
,[0x81,0x30,0x8B,0x37]
,[0x81,0x30,0x8B,0x38]
,[0x82,0x32,0xA6,0x36]
,[0x82,0x32,0xA6,0x37]
,[0xC2,0x52]
,[0xD2,0xAB]
,[0x83,0x31,0xD7,0x34]
,[0x83,0x31,0xD7,0x35]
,[0x83,0x38,0x96,0x36]
,[0x83,0x38,0x96,0x37]
,[0x84,0x31,0xA4,0x39]])
]