Commit c5cbe3fe authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #1048

parent 20948b3b
......@@ -132,3 +132,4 @@ test('conc064', exit_code(1), compile_and_run, [''])
test('conc065', ignore_output, compile_and_run, [''])
test('conc066', ignore_output, compile_and_run, [''])
test('conc067', ignore_output, compile_and_run, [''])
test('conc068', exit_code(1), compile_and_run, [''])
import Control.Concurrent
import Control.Exception
import GHC.Conc
-- test forkBlockIO
main = do
main_thread <- myThreadId
m <- newEmptyMVar
sub_thread <- block $ forkIO $
sum [1..100000] `seq`
throwTo main_thread (ErrorCall "foo")
killThread sub_thread
putStrLn "oops"
Supports Markdown
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