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

[ghc-hetmet.git] / ghc / tests / lib / IOExts / hTell002.hs

diff --git a/ghc/tests/lib/IOExts/hTell002.hs b/ghc/tests/lib/IOExts/hTell002.hs
deleted file mode 100644 (file)
index 0bb0cac..0000000
--- a/ghc/tests/lib/IOExts/hTell002.hs
+++ /dev/null
@@ -1,26 +0,0 @@
--- !!! Testing hSeek
-module Main(main) where
-
-import IO
-import IOExts
-import Directory
-
-main :: IO ()
-main = do
-  h <- openFile "tst-seek" WriteMode
-  hPutStr h "test string1"
-   -- seek to EOF should be cool..
-  hSeek h SeekFromEnd 0
-  hPutStr h "test string2"
-   -- seek past EOF should now also be cool..
-  hSeek h SeekFromEnd 3
-  hPutStr h "test string3"
-  hSeek h AbsoluteSeek 13
-  hPutStr h "test string4"
-  x <- hTell h
-  print x
-  hPutStr h "filler"
-  hClose h
-  ls <- readFile "tst-seek"
-  putStrLn ls
-  removeFile "tst-seek"