ghc/tests/lib/IO/hReady001.hs

   1 -- !!! hReady test
   2
   3  -- hReady should probably return False at the end of a file,
   4  -- but in GHC it returns True (known bug).
   5
   6 import IO
   7 #if defined(__MINGW32__)
   8 import PrelHandle(hSetBinaryMode)
   9 #endif
  10
  11 main = do
  12  h <- openFile "hReady001.hs" ReadMode
  13 #if defined(__MINGW32__)
  14  hSetBinaryMode h True
  15 #endif
  16  hSeek h SeekFromEnd 0
  17  hReady h >>= print