1 --- !!! test for bug in handle finalization fixed in
2 --- !!! 1.60 +1 -2 fptools/ghc/lib/std/PrelHandle.lhs
3 --- !!! 1.15 +4 -10 fptools/ghc/lib/std/PrelIO.lhs
5 module Main (main) where
12 sd <- openFile "io033.hs" ReadWriteMode
13 result <- hGetContents sd
16 if "" `elem` lines (filter (/= '\r') result)
22 slurp :: String -> IO ()
24 slurp (x:xs) = x `seq` slurp xs
27 main = sequence_ (take 200 (repeat doTest))