Get a test to be a bit more reliable
commit622d8ee0d046fb7b4263ca883b53c473b3d7942f
authorMichael Snoyman <michael@snoyman.com>
dateMon 2 Dec 2013, 09:04 (13 years ago)
parentc4b2097
warp/test/RunSpec.hs+1−1
@@ -103,7 +103,7 @@ runTest expected app chunks = do
103103 handle <- connectTo "127.0.0.1" $ PortNumber $ fromIntegral port
104104 forM_ chunks $ \chunk -> hPutStr handle chunk >> hFlush handle
105105 _ <- hGetSome handle 4096
106− threadDelay 1000
106+ threadDelay 30000
107107 res <- I.readIORef ref
108108 case res of
109109 Left s -> error s