Commit 9b4ee312 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #1980

parent aa2c5203
import Control.Exception
import Control.Concurrent
main = do
thr <- myThreadId
evaluate $ increase_stack 1000
throwTo thr (AsyncException ThreadKilled)
`Control.Exception.catch` (\e -> case e of
AsyncException ThreadKilled -> return ()
_ -> throw e)
where
increase_stack 0 = 1
increase_stack n = increase_stack (n-1) + n
......@@ -133,3 +133,5 @@ 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, [''])
test('1980', normal, compile_and_run, [''])
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