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

increase the repeat count; this bug is pretty fragile

[project @ 2000-07-25 15:54:38 by simonmar]
increase the repeat count; this bug is pretty fragile
94b2b47a · Simon Marlow · 5416852e · 94b2b47a
Commit 94b2b47a authored 24 years ago by Simon Marlow
--- 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))