Commit 03440aeb authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #2910; move #1980 into validate

parent 42489713
import Control.Exception
import GHC.Conc
main = do
t1 <- block $ forkIO yield
t2 <- forkIO $ killThread t1
threadDelay 100000
threadStatus t1 >>= print
threadStatus t2 >>= print
......@@ -21,6 +21,9 @@ test('conc069', only_ways(threaded_ways), compile_and_run, [''])
# those for now.
test('conc070', only_ways(threaded_ways), compile_and_run, [''])
test('1980', normal, compile_and_run, [''])
test('2910', normal, compile_and_run, [''])
# -----------------------------------------------------------------------------
# These tests we only do for a full run
......@@ -149,4 +152,3 @@ test('conc066', ignore_output, compile_and_run, [''])
test('conc067', ignore_output, compile_and_run, [''])
test('conc068', exit_code(1), compile_and_run, [''])
test('1980', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment