ghc/tests/io/should_run/io013.hs

   1 import IO -- 1.3
   2
   3 main = do
   4     h  <- openFile "io013.in" ReadMode
   5     sz <- hFileSize h
   6     print sz
   7     hSeek h SeekFromEnd (-3)
   8     x <- hGetChar h
   9     putStr (x:"\n")
  10     hSeek h RelativeSeek (-2)
  11     w <- hGetChar h
  12     putStr (w:"\n")
  13     ~True <- hIsSeekable h
  14     hClose h
  15     h <- openFile "/dev/null" ReadMode
  16     ~False <- hIsSeekable h
  17     hClose h
  18