ghc/tests/lib/IO/hSeek001.hs

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