Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/bdc13d4c80ae444d0421d7626829063e6bf82542 >--------------------------------------------------------------- commit bdc13d4c80ae444d0421d7626829063e6bf82542 Author: Simon Marlow <[email protected]> Date: Thu Apr 12 11:47:24 2012 +0100 Test #5993 >--------------------------------------------------------------- tests/rts/5993.hs | 6 ++++++ tests/rts/5993.stdout | 1 + tests/rts/all.T | 1 + 3 files changed, 8 insertions(+), 0 deletions(-) diff --git a/tests/rts/5993.hs b/tests/rts/5993.hs new file mode 100644 index 0000000..25626ff --- /dev/null +++ b/tests/rts/5993.hs @@ -0,0 +1,6 @@ +import Control.Concurrent +main = do + m <- newEmptyMVar + forkIO $ putStrLn "Hello World!" >> putMVar m () + takeMVar m + diff --git a/tests/rts/5993.stdout b/tests/rts/5993.stdout new file mode 100644 index 0000000..980a0d5 --- /dev/null +++ b/tests/rts/5993.stdout @@ -0,0 +1 @@ +Hello World! diff --git a/tests/rts/all.T b/tests/rts/all.T index d79b62e..f1a7ae6 100644 --- a/tests/rts/all.T +++ b/tests/rts/all.T @@ -129,3 +129,4 @@ test('T5423', run_command, ['$MAKE -s --no-print-directory T5423']) +test('5993', extra_run_opts('+RTS -k8 -RTS'), compile_and_run, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
