blob: c086ae766bbfa61f1a0e6bc02b8d35c566173934 (
plain)
1
2
3
4
5
6
7
8
9
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
|
