ghc/tests/lib/should_run/io002.hs

   1 -- !!! Testing hSeek
   2 module Main(main) where
   3
   4 import IO
   5 import IOExts
   6 import Directory
   7
   8 main :: IO ()
   9 main = do
  10   h <- openFile "tst-seek" WriteMode
  11   hPutStrLn h "test string1"
  12    -- seek to EOF should be cool..
  13   hSeek h SeekFromEnd 0
  14   hPutStr h "test string2"
  15    -- seek past EOF should now be cool..
  16   hSeek h SeekFromEnd 3
  17   hPutStr h "test string3"
  18   hSeek h AbsoluteSeek 13
  19   hPutStr h "test string4"
  20   x <- hTell h
  21   print x
  22   hClose h
  23   ls <- readFile "tst-seek"
  24   putStrLn ls
  25   removeFile "tst-seek"