blob: 06cc6fd45ec72ec97b463f88388c096b76364dc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
import Control.Monad
import System.IO
import System.IO.Error
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 "UTF-8//ROUNDTRIP"
hSetEncoding stdout enc
alltests "decodingerror002.in"
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
enc <- mkTextEncoding enc_name
hSetEncoding h enc
e <- tryIOError $ forever $ hGetChar h >>= putChar
print (e :: Either IOError ())
|
