ghc/tests/lib/IO/ioeGetErrorString001.hs

   1 -- !!! test ioeGetErrorString
   2
   3 import IO
   4 import Maybe
   5 #if defined(__MINGW32__)
   6 import PrelHandle(hSetBinaryMode)
   7 #endif
   8
   9 main = do
  10   h <- openFile "ioeGetErrorString001.hs" ReadMode
  11 # if defined(__MINGW32__)
  12   hSetBinaryMode h True
  13 # endif
  14   hSeek h SeekFromEnd 0
  15   (hGetChar h >> return ()) `catch`
  16         \e -> if isEOFError e
  17                 then print (ioeGetErrorString e)
  18                 else putStrLn "failed."