Attempt to fix decodingerror002 test for non-UTF8 locales
authorMax Bolingbroke <batterseapower@hotmail.com>
Sat, 24 Sep 2011 13:01:06 +0000 (22:01 +0900)
committerMax Bolingbroke <batterseapower@hotmail.com>
Sat, 24 Sep 2011 13:01:18 +0000 (22:01 +0900)
testsuite/tests/lib/IO/decodingerror002.hs
testsuite/tests/lib/IO/decodingerror002.stdout

index 5b7acaf..a1a2373 100644 (file)
@@ -3,7 +3,12 @@ import System.IO
 import System.IO.Error
 import GHC.IO.Handle (hSetEncoding)
 
-main = alltests "decodingerror002.in"
+main = do
+  -- Explicitly set stdout encoding so that the UTF8//ROUNDTRIP
+  -- test is always able to write the surrogate byte out without error.
+  enc <- mkTextEncoding "UTF8//ROUNDTRIP"
+  hSetEncoding stdout enc
+  alltests "decodingerror002.in"
 
 alltests file = mapM (test file)  ["UTF8",
                                    "UTF8//IGNORE",
index 6950fa4..e1cef33 100644 (file)
@@ -1,4 +1,4 @@
 Left decodingerror002.in: hGetChar: invalid argument (invalid byte sequence)
 Left decodingerror002.in: hGetChar: end of file
 �Left decodingerror002.in: hGetChar: end of file
-Left <stdout>: hPutChar: invalid argument (invalid character)
+ÈLeft decodingerror002.in: hGetChar: end of file