1 -- !!! test hIsEOF in various buffering situations
6 h <- openFile "hIsEOF002.hs" ReadMode
8 hSetBuffering h NoBuffering
11 hSeek h SeekFromEnd (-1)
15 hSetBuffering h LineBuffering
18 hSeek h SeekFromEnd (-1)
22 hSetBuffering h (BlockBuffering (Just 1))
25 hSeek h SeekFromEnd (-1)
29 hSetBuffering h (BlockBuffering Nothing)
32 hSeek h SeekFromEnd (-1)
37 h <- openFile "hIsEOF002.out" WriteMode
38 hPutStrLn h "hello, world"
41 h <- openFile "hIsEOF002.out" ReadWriteMode
43 hSetBuffering h NoBuffering
48 hSeek h SeekFromEnd (-1)