ghc/tests/lib/IO/hSeek001.hs

   1 -- !!! Test seeking
   2
   3 import IO
   4
   5 main = do
   6     h  <- openFile "hSeek001.in" ReadMode
   7     hSetBinaryMode h True
   8     True <- hIsSeekable h
   9     hSeek h SeekFromEnd (-1)
  10     z <- hGetChar h
  11     putStr (z:"\n")
  12     hSeek h SeekFromEnd (-3)
  13     x <- hGetChar h
  14     putStr (x:"\n")
  15     hSeek h RelativeSeek (-2)
  16     w <- hGetChar h
  17     putStr (w:"\n")
  18     hSeek h RelativeSeek 2
  19     z <- hGetChar h
  20     putStr (z:"\n")
  21     hSeek h AbsoluteSeek (0)
  22     a <- hGetChar h
  23     putStr (a:"\n")
  24     hSeek h AbsoluteSeek (10)
  25     k <- hGetChar h
  26     putStr (k:"\n")
  27     hSeek h AbsoluteSeek (25)
  28     z <- hGetChar h
  29     putStr (z:"\n")
  30     hClose h