Repository : ssh://[email protected]/testsuite On branch : master Link : http://ghc.haskell.org/trac/ghc/changeset/26234b25459cdf7b3509abd8ef854471b8adff8a/testsuite
>--------------------------------------------------------------- commit 26234b25459cdf7b3509abd8ef854471b8adff8a Author: Simon Marlow <[email protected]> Date: Wed Sep 4 10:39:13 2013 +0100 add a test for #8209 >--------------------------------------------------------------- 26234b25459cdf7b3509abd8ef854471b8adff8a tests/rts/T8209.hs | 13 +++++++++++++ tests/rts/all.T | 3 +++ 2 files changed, 16 insertions(+) diff --git a/tests/rts/T8209.hs b/tests/rts/T8209.hs new file mode 100644 index 0000000..edfab5c --- /dev/null +++ b/tests/rts/T8209.hs @@ -0,0 +1,13 @@ +import Control.Concurrent +import Control.Monad +import GHC.Conc + +main = do + mainTid <- myThreadId + labelThread mainTid "main" + forM_ [0..0] $ \i -> forkIO $ do + subTid <- myThreadId + labelThread subTid $ "sub " ++ show i + forM_ [0..100000000] $ \j -> putStrLn $ "sub " ++ show i ++ ": " ++ show j + yield + setNumCapabilities 2 diff --git a/tests/rts/all.T b/tests/rts/all.T index 6b5e5f6..7e19349 100644 --- a/tests/rts/all.T +++ b/tests/rts/all.T @@ -185,3 +185,6 @@ test('linker_unload', [ extra_clean(['Test.o','Test.hi', 'linker_unload']) ], run_command, ['$MAKE -s --no-print-directory linker_unload']) + +test('T8209', [ only_ways(threaded_ways), ignore_output ], + compile_and_run, ['']) _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
