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
   8 main = do
   9  h <- openFile "hReady001.hs" ReadMode
  10  hSetBinaryMode h True
  11  hSeek h SeekFromEnd 0
  12  hReady h >>= print