Make startup/shutdown test wait a bit longer

duairc · Jun 8, 2010 · e4dd407 · e4dd407
1 parent fc053a8
commit e4dd407
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/suite/Snap/Internal/Http/Server/Tests.hs b/test/suite/Snap/Internal/Http/Server/Tests.hs
@@ -580,6 +580,6 @@ testServerStartupShutdown = testCase "startup/shutdown" $ do
 
     return ()
   where
-    waitabit = threadDelay $ ((10::Int)^(6::Int))
+    waitabit = threadDelay $ 2*((10::Int)^(6::Int))
     port = 8145