ghc/tests/io/should_run/io013.hs

   1 -- If you're testing on a Win32 box, be aware that
   2 -- line termination conventions differ (and that
   3 -- io013 uses /dev/null, which is also unix centric.)
   4
   5 import IO -- 1.3
   6
   7 main = do
   8     h  <- openFile "io013.in" ReadMode
   9     sz <- hFileSize h
  10     print sz
  11     hSeek h SeekFromEnd (-3)
  12     x <- hGetChar h
  13     putStr (x:"\n")
  14     hSeek h RelativeSeek (-2)
  15     w <- hGetChar h
  16     putStr (w:"\n")
  17     ~True <- hIsSeekable h
  18     hClose h
  19     h <- openFile "/dev/null" ReadMode
  20     ~False <- hIsSeekable h
  21     hClose h
  22