From 0608a57c6b76335a83a066870239ba9d7d15067e Mon Sep 17 00:00:00 2001
From: Henning Guenther <h.guenther@tu-bs.de>
Date: Tue, 24 Feb 2009 20:05:56 -0800
Subject: [PATCH] Added ISO2022JP testcase

darcs-hash:20090225040556-a4fee-38a743dc10cd3eca8b33cc656ba33f6e89354db5
---
 Test/Tests.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Test/Tests.hs b/Test/Tests.hs
index 3e50283..0c30012 100644
--- a/Test/Tests.hs
+++ b/Test/Tests.hs
@@ -18,6 +18,7 @@ import Data.Encoding.ISO885911
 import Data.Encoding.ISO885913
 import Data.Encoding.ISO885914
 import Data.Encoding.JISX0208
+import Data.Encoding.ISO2022JP
 import Data.Encoding.BootString
 import Test.HUnit
 import Test.QuickCheck hiding (test)
@@ -234,6 +235,13 @@ isoTests :: 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"
             [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