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

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

diff --git a/ghc/tests/lib/IO/hSeek001.hs b/ghc/tests/lib/IO/hSeek001.hs
deleted file mode 100644 (file)
index 9bfd4ba..0000000
--- a/ghc/tests/lib/IO/hSeek001.hs
+++ /dev/null
@@ -1,35 +0,0 @@
--- !!! Test seeking
-
-import IO
-#if defined(__MINGW32__)
-import PrelHandle(hSetBinaryMode)
-#endif
-
-main = do
-    h  <- openFile "hSeek001.in" ReadMode
-#   if defined(__MINGW32__)
-    hSetBinaryMode h True
-#   endif
-    True <- hIsSeekable h
-    hSeek h SeekFromEnd (-1)
-    z <- hGetChar h
-    putStr (z:"\n")
-    hSeek h SeekFromEnd (-3)
-    x <- hGetChar h
-    putStr (x:"\n")
-    hSeek h RelativeSeek (-2)
-    w <- hGetChar h
-    putStr (w:"\n")
-    hSeek h RelativeSeek 2
-    z <- hGetChar h
-    putStr (z:"\n")
-    hSeek h AbsoluteSeek (0)
-    a <- hGetChar h
-    putStr (a:"\n")
-    hSeek h AbsoluteSeek (10)
-    k <- hGetChar h
-    putStr (k:"\n")
-    hSeek h AbsoluteSeek (25)
-    z <- hGetChar h
-    putStr (z:"\n")
-    hClose h