ghc/tests/lib/IO/hGetLine001.stdout

   1 -- !!! testing hGetLine
   2
   3 import IO
   4
   5 -- one version of 'cat'
   6 main = do
   7   let loop h = do b <- hIsEOF h
   8                   if b then return ()
   9                        else do l <- hGetLine h; putStrLn l; loop h
  10   loop stdin
  11
  12   h <- openFile "hGetLine001.hs" ReadMode
  13   hSetBinaryMode h True
  14
  15   hSetBuffering h NoBuffering
  16   loop h
  17
  18   hSeek h AbsoluteSeek 0
  19   hSetBuffering h LineBuffering
  20   loop h
  21
  22   hSeek h AbsoluteSeek 0
  23   hSetBuffering h (BlockBuffering (Just 83))
  24   loop h
  25 -- !!! testing hGetLine
  26
  27 import IO
  28
  29 -- one version of 'cat'
  30 main = do
  31   let loop h = do b <- hIsEOF h
  32                   if b then return ()
  33                        else do l <- hGetLine h; putStrLn l; loop h
  34   loop stdin
  35
  36   h <- openFile "hGetLine001.hs" ReadMode
  37   hSetBinaryMode h True
  38
  39   hSetBuffering h NoBuffering
  40   loop h
  41
  42   hSeek h AbsoluteSeek 0
  43   hSetBuffering h LineBuffering
  44   loop h
  45
  46   hSeek h AbsoluteSeek 0
  47   hSetBuffering h (BlockBuffering (Just 83))
  48   loop h
  49 -- !!! testing hGetLine
  50
  51 import IO
  52
  53 -- one version of 'cat'
  54 main = do
  55   let loop h = do b <- hIsEOF h
  56                   if b then return ()
  57                        else do l <- hGetLine h; putStrLn l; loop h
  58   loop stdin
  59
  60   h <- openFile "hGetLine001.hs" ReadMode
  61   hSetBinaryMode h True
  62
  63   hSetBuffering h NoBuffering
  64   loop h
  65
  66   hSeek h AbsoluteSeek 0
  67   hSetBuffering h LineBuffering
  68   loop h
  69
  70   hSeek h AbsoluteSeek 0
  71   hSetBuffering h (BlockBuffering (Just 83))
  72   loop h
  73 -- !!! testing hGetLine
  74
  75 import IO
  76
  77 -- one version of 'cat'
  78 main = do
  79   let loop h = do b <- hIsEOF h
  80                   if b then return ()
  81                        else do l <- hGetLine h; putStrLn l; loop h
  82   loop stdin
  83
  84   h <- openFile "hGetLine001.hs" ReadMode
  85   hSetBinaryMode h True
  86
  87   hSetBuffering h NoBuffering
  88   loop h
  89
  90   hSeek h AbsoluteSeek 0
  91   hSetBuffering h LineBuffering
  92   loop h
  93
  94   hSeek h AbsoluteSeek 0
  95   hSetBuffering h (BlockBuffering (Just 83))
  96   loop h