ghc/tests/lib/IO/ioeGetHandle001.hs

   1 -- !!! test ioeGetHandle
   2
   3 import IO
   4 import Maybe
   5 #if defined(__MINGW32__)
   6 import PrelHandle(hSetBinaryMode)
   7 #endif
   8
   9 main = do
  10   h <- openFile "ioeGetHandle001.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 && fromJust (ioeGetHandle e) == h
  17                 then putStrLn "ok."
  18                 else putStrLn "failed."