Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c57f7af8db504df7ecbc31f1a57f80196c73b1cc >--------------------------------------------------------------- commit c57f7af8db504df7ecbc31f1a57f80196c73b1cc Author: Simon Marlow <[email protected]> Date: Wed Aug 3 15:13:53 2011 +0100 fix an unexpected pass >--------------------------------------------------------------- tests/concurrent/should_run/all.T | 2 +- tests/concurrent/should_run/throwto002.hs | 2 +- .../should_run/throwto002.stdout} | 0 3 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/concurrent/should_run/all.T b/tests/concurrent/should_run/all.T index cdcbd6d..f7745d5 100644 --- a/tests/concurrent/should_run/all.T +++ b/tests/concurrent/should_run/all.T @@ -36,7 +36,7 @@ test('4030', omit_ways('ghci'), compile_and_run, ['-O']) # each of these runs for about a second test('throwto001', [reqlib('random'), extra_run_opts('1000 2000')], compile_and_run, ['']) -test('throwto002', [reqlib('random'), ignore_output], compile_and_run, ['']) +test('throwto002', [reqlib('random')], compile_and_run, ['']) test('throwto003', normal, compile_and_run, ['']) test('mask001', normal, compile_and_run, ['']) diff --git a/tests/concurrent/should_run/throwto002.hs b/tests/concurrent/should_run/throwto002.hs index c9857f1..98c9f1f 100644 --- a/tests/concurrent/should_run/throwto002.hs +++ b/tests/concurrent/should_run/throwto002.hs @@ -15,7 +15,7 @@ main = do t1 <- block $ forkIO (thread r t2) t2 <- block $ forkIO (thread r t1) threadDelay 1000000 - readIORef r >>= print + readIORef r >>= print . (/= 0) thread r t = run where diff --git a/tests/codeGen/should_run/cgrun033.stdout b/tests/concurrent/should_run/throwto002.stdout similarity index 100% copy from tests/codeGen/should_run/cgrun033.stdout copy to tests/concurrent/should_run/throwto002.stdout _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
