diff options
Diffstat (limited to 'testsuite/tests/lib/IO/hSeek004.hs')
| -rw-r--r-- | testsuite/tests/lib/IO/hSeek004.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/lib/IO/hSeek004.hs b/testsuite/tests/lib/IO/hSeek004.hs new file mode 100644 index 0000000000..9ad7c13e7f --- /dev/null +++ b/testsuite/tests/lib/IO/hSeek004.hs @@ -0,0 +1,8 @@ +-- !!! can't seek an AppendMode handle + +import System.IO +import System.IO.Error + +main = do + h <- openFile "hSeek004.out" AppendMode + try (hSeek h AbsoluteSeek 0) >>= print |