[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / IO / hSeek002.hs

diff --git a/ghc/tests/lib/IO/hSeek002.hs b/ghc/tests/lib/IO/hSeek002.hs
deleted file mode 100644 (file)
index c9b795f..0000000
--- a/ghc/tests/lib/IO/hSeek002.hs
+++ /dev/null
@@ -1,30 +0,0 @@
--- !!! Testing EOF (and the clearing of it)
-module Main(main) where
-
-import IO
-import Directory ( removeFile )
-#if defined(__MINGW32__)
-import PrelHandle(hSetBinaryMode)
-#endif
-
-main :: IO ()
-main = do
-   hdl <- openFile "hSeek002.hs" ReadMode
-#  if defined(__MINGW32__)
-   hSetBinaryMode hdl True
-#  endif
-   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