Commit 408998fa authored by Bertram Felgenhauer's avatar Bertram Felgenhauer Committed by ian@well-typed.com
Browse files

add test for #7719

parent 3302951d
-- test for escaping Timeout exceptions, see #7719
import System.Timeout
import Control.Monad
import Control.Concurrent
t d = timeout d $ timeout d $ timeout d $ timeout d $ timeout d $ timeout (10^9) $ threadDelay 100
main = forM_ [1..20] $ \_ -> forM_ [1..40] t
......@@ -6,4 +6,4 @@ test('T5930', normal, compile_and_run, [''])
test('system001', when(opsys("mingw32"), expect_fail), \
compile_and_run, [''])
test('Timeout001', 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