add test for #7719

ghc · Apr 21, 2013 · 57759ce · 57759ce
1 parent 84ac54d
commit 57759ce
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/tests/System/Timeout001.hs b/tests/System/Timeout001.hs
@@ -0,0 +1,10 @@
+-- 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
+
diff --git a/tests/System/all.T b/tests/System/all.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, [''])