diff options
Diffstat (limited to 'testsuite/tests/lib/IO/hSeek002.hs')
| -rw-r--r-- | testsuite/tests/lib/IO/hSeek002.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/tests/lib/IO/hSeek002.hs b/testsuite/tests/lib/IO/hSeek002.hs new file mode 100644 index 0000000000..8c9153cfaa --- /dev/null +++ b/testsuite/tests/lib/IO/hSeek002.hs @@ -0,0 +1,25 @@ +-- !!! Testing EOF (and the clearing of it) + +module Main(main) where + +import System.IO +import System.Directory ( removeFile ) + +main :: IO () +main = do + hdl <- openFile "hSeek002.hs" ReadMode + flg <- hIsEOF hdl + print flg + hSeek hdl SeekFromEnd 0 + flg <- hIsEOF hdl + print flg + hSeek hdl SeekFromEnd (-1) + flg <- hIsEOF hdl + print flg + hGetChar hdl + flg <- hIsEOF hdl + print flg + hSeek hdl SeekFromEnd (-1) + flg <- hIsEOF hdl + print flg + hClose hdl |