[DHG_packages] 02/02: snap: Increase timeout for tests

[Ilias Tsitsimpis]

This is an automated email from the git hooks/post-receive script.

iliastsi-guest pushed a commit to branch master
in repository DHG_packages.

commit 81f2ef687a0923752d72e2a18079bf1b1f1a0309
Author: Ilias Tsitsimpis <iliastsi at debian.org>
Date:   Fri Nov 10 15:37:48 2017 +0200

    snap: Increase timeout for tests
---
 p/haskell-snap/debian/changelog             |  6 ++++++
 p/haskell-snap/debian/patches/series        |  1 +
 p/haskell-snap/debian/patches/tests-timeout | 18 ++++++++++++++++++
 3 files changed, 25 insertions(+)

diff --git a/p/haskell-snap/debian/changelog b/p/haskell-snap/debian/changelog
index 732682a..8cf3495 100644
--- a/p/haskell-snap/debian/changelog
+++ b/p/haskell-snap/debian/changelog
@@ -1,3 +1,9 @@
+haskell-snap (1.0.0.2-2) unstable; urgency=medium
+
+  * Tests fail on slower buildds, so increase the default timeout
+
+ -- Ilias Tsitsimpis <iliastsi at debian.org>  Fri, 10 Nov 2017 15:37:25 +0200
+
 haskell-snap (1.0.0.2-1) unstable; urgency=medium
 
   [ Sean Whitton ]
diff --git a/p/haskell-snap/debian/patches/series b/p/haskell-snap/debian/patches/series
index 5441df8..52a38e4 100644
--- a/p/haskell-snap/debian/patches/series
+++ b/p/haskell-snap/debian/patches/series
@@ -1,2 +1,3 @@
 rename-snap-binary
 no-test-framework-smallcheck
+tests-timeout
diff --git a/p/haskell-snap/debian/patches/tests-timeout b/p/haskell-snap/debian/patches/tests-timeout
new file mode 100644
index 0000000..8f91091
--- /dev/null
+++ b/p/haskell-snap/debian/patches/tests-timeout
@@ -0,0 +1,18 @@
+Description: Increase timeout for tests
+Author: Ilias Tsitsimpis <iliastsi at 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

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git