[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