Increase timeout for slow machines
commit654ffcec10fbf0cfc65a50dbfd4447c82160e109
authorEdsko de Vries <edsko@well-typed.com>
dateThu 31 May 2012, 09:23 (14 years ago)
parentc83ee69
network-transport/tests/TestAuxiliary.hs+1−1
@@ -40,7 +40,7 @@ runTest :: String -> IO () -> IO Bool
4040runTest description test = do
4141 putStr $ "Running " ++ show description ++ ": "
4242 hFlush stdout
43− done <- try . timeout 30000000 $ test -- 30 seconds
43+ done <- try . timeout 60000000 $ test -- 60 seconds
4444 case done of
4545 Left err -> failed $ "(exception: " ++ show (err :: SomeException) ++ ")"
4646 Right Nothing -> failed $ "(timeout)"