[commit: testsuite] master: Fix decodingerror002 on Windows (6d8546d)
Max Bolingbroke
batterseapower at hotmail.com
Mon Sep 26 15:34:31 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6d8546d914875dc5e2134719922d1bad80ea5a74
>---------------------------------------------------------------
commit 6d8546d914875dc5e2134719922d1bad80ea5a74
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date: Mon Sep 26 14:33:53 2011 +0100
Fix decodingerror002 on Windows
>---------------------------------------------------------------
tests/lib/IO/decodingerror002.hs | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/tests/lib/IO/decodingerror002.hs b/tests/lib/IO/decodingerror002.hs
index a1a2373..db610bd 100644
--- a/tests/lib/IO/decodingerror002.hs
+++ b/tests/lib/IO/decodingerror002.hs
@@ -6,14 +6,14 @@ import GHC.IO.Handle (hSetEncoding)
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"
+ enc <- mkTextEncoding "UTF-8//ROUNDTRIP"
hSetEncoding stdout enc
alltests "decodingerror002.in"
-alltests file = mapM (test file) ["UTF8",
- "UTF8//IGNORE",
- "UTF8//TRANSLIT",
- "UTF8//ROUNDTRIP"]
+alltests file = mapM (test file) ["UTF-8",
+ "UTF-8//IGNORE",
+ "UTF-8//TRANSLIT",
+ "UTF-8//ROUNDTRIP"]
test file enc_name = do
h <- openFile file ReadMode
More information about the Cvs-ghc
mailing list