ghc/tests/lib/IO/hSeek002.hs

   1 -- !!! Testing EOF (and the clearing of it)
   2 module Main(main) where
   3
   4 import IO
   5 import Directory ( removeFile )
   6 #if defined(__MINGW32__)
   7 import PrelHandle(hSetBinaryMode)
   8 #endif
   9
  10 main :: IO ()
  11 main = do
  12    hdl <- openFile "hSeek002.hs" ReadMode
  13 #  if defined(__MINGW32__)
  14    hSetBinaryMode hdl True
  15 #  endif
  16    flg <- hIsEOF hdl
  17    print flg
  18    hSeek hdl SeekFromEnd 0
  19    flg <- hIsEOF hdl
  20    print flg
  21    hSeek hdl SeekFromEnd (-1)
  22    flg <- hIsEOF hdl
  23    print flg
  24    hGetChar hdl
  25    flg <- hIsEOF hdl
  26    print flg
  27    hSeek hdl SeekFromEnd (-1)
  28    flg <- hIsEOF hdl
  29    print flg
  30    hClose hdl