Description: Increase timeout for tests
Author: Ilias Tsitsimpis <iliastsi@debian.org>
Forwarded: https://github.com/snapframework/snap/issues/195
---

Index: b/test/suite/Snap/Snaplet/Test/Tests.hs
===================================================================
--- a/test/suite/Snap/Snaplet/Test/Tests.hs
+++ b/test/suite/Snap/Snaplet/Test/Tests.hs
@@ -121,7 +121,7 @@ readRequestBodyHangIssue =
     assertReadRqBody =
       do let hdl = readRequestBody 5000 >>= writeLBS
          res <- race
-                (threadDelay 1000000)
+                (threadDelay 100000000)
                 (runHandler Nothing (ST.get "" Map.empty) hdl appInit)
          either (assertFailure . ("readRequestBody timeout" ++) . show)
            (either (assertFailure . show) ST.assertSuccess) res
