Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/105758e2c92d08960840bbb265589a6ce067a8cb

>---------------------------------------------------------------

commit 105758e2c92d08960840bbb265589a6ce067a8cb
Author: Simon Marlow <marlo...@gmail.com>
Date:   Tue Oct 25 10:24:03 2011 +0100

    fix test wrapper for 5558

>---------------------------------------------------------------

 tests/concurrent/should_run/all.T |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/concurrent/should_run/all.T 
b/tests/concurrent/should_run/all.T
index 15bcd49..6779458 100644
--- a/tests/concurrent/should_run/all.T
+++ b/tests/concurrent/should_run/all.T
@@ -62,7 +62,7 @@ test('allowinterrupt001', normal, compile_and_run, [''])
 # try hard to provoke the error by running the test 100 times
 test('5558',
      [ only_ways(['threaded2']),
-       cmd_wrapper(lambda c: 'for i in `seq 1 100`; do ' + c + '; done') ],
+       cmd_wrapper(lambda c: 'for i in `seq 1 100`; do ' + c + ' || break; 
done') ],
      compile_and_run, [''])
 
 # -----------------------------------------------------------------------------



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to