Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/bf4e4e5356fcc07e6b6037ebe6b4d236fa35b784 >--------------------------------------------------------------- commit bf4e4e5356fcc07e6b6037ebe6b4d236fa35b784 Author: Simon Marlow <[email protected]> Date: Mon Feb 27 14:42:10 2012 +0000 add test for #5866 >--------------------------------------------------------------- tests/concurrent/should_run/5866.hs | 10 ++++++++++ tests/concurrent/should_run/5866.stderr | 1 + tests/concurrent/should_run/all.T | 1 + 3 files changed, 12 insertions(+), 0 deletions(-) diff --git a/tests/concurrent/should_run/5866.hs b/tests/concurrent/should_run/5866.hs new file mode 100644 index 0000000..4650ea6 --- /dev/null +++ b/tests/concurrent/should_run/5866.hs @@ -0,0 +1,10 @@ +import GHC.Conc +import Control.Exception +import System.IO.Unsafe +import System.Timeout + +main :: IO () +main = do + x <- unsafeInterleaveIO $ atomically retry + _ <- timeout 500000 $ evaluate x + evaluate x diff --git a/tests/concurrent/should_run/5866.stderr b/tests/concurrent/should_run/5866.stderr new file mode 100644 index 0000000..a4774f2 --- /dev/null +++ b/tests/concurrent/should_run/5866.stderr @@ -0,0 +1 @@ +5866: thread blocked indefinitely in an STM transaction diff --git a/tests/concurrent/should_run/all.T b/tests/concurrent/should_run/all.T index 5c5a914..375dc6f 100644 --- a/tests/concurrent/should_run/all.T +++ b/tests/concurrent/should_run/all.T @@ -68,6 +68,7 @@ test('5558', test('5421', normal, compile_and_run, ['']) test('5611', normal, compile_and_run, ['']) test('5238', normal, compile_and_run, ['']) +test('5866', exit_code(1), compile_and_run, ['']) # ----------------------------------------------------------------------------- # These tests we only do for a full run _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
