[project @ 2000-07-25 15:54:38 by simonmar]

increase the repeat count; this bug is pretty fragile

diff --git a/ghc/tests/io/should_run/io033.hs b/ghc/tests/io/should_run/io033.hs
index 33c9ed7..0e8620c 100644 (file)
--- a/ghc/tests/io/should_run/io033.hs
+++ b/ghc/tests/io/should_run/io033.hs
@@ -24,4 +24,4 @@ slurp [] = return ()
 slurp (x:xs) = x `seq` slurp xs
 
 main :: IO ()
-main = sequence_ (take 50 (repeat doTest))
+main = sequence_ (take 200 (repeat doTest))