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
   7 main :: IO ()
   8 main = do
   9    hdl <- openFile "hSeek002.hs" ReadMode
  10    flg <- hIsEOF hdl
  11    print flg
  12    hSeek hdl SeekFromEnd 0
  13    flg <- hIsEOF hdl
  14    print flg
  15    hSeek hdl SeekFromEnd (-1)
  16    flg <- hIsEOF hdl
  17    print flg
  18    hGetChar hdl
  19    flg <- hIsEOF hdl
  20    print flg
  21    hSeek hdl SeekFromEnd (-1)
  22    flg <- hIsEOF hdl
  23    print flg
  24    hClose hdl