[DHG_packages] 01/01: tls: 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 31c8fa327e5055e17568d20f0cd5e63bc5d18bd9
Author: Ilias Tsitsimpis <iliastsi at debian.org>
Date:   Thu Nov 9 13:35:03 2017 +0200

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

diff --git a/p/haskell-tls/debian/changelog b/p/haskell-tls/debian/changelog
index 11c7a8b..1c902e4 100644
--- a/p/haskell-tls/debian/changelog
+++ b/p/haskell-tls/debian/changelog
@@ -1,3 +1,9 @@
+haskell-tls (1.3.11-4) unstable; urgency=medium
+
+  * Tests fail on slower buildds, so increase the default timeout
+
+ -- Ilias Tsitsimpis <iliastsi at debian.org>  Thu, 09 Nov 2017 13:34:46 +0200
+
 haskell-tls (1.3.11-3) unstable; urgency=medium
 
   [ Ilias Tsitsimpis ]
diff --git a/p/haskell-tls/debian/patches/series b/p/haskell-tls/debian/patches/series
index fa03b17..010d929 100644
--- a/p/haskell-tls/debian/patches/series
+++ b/p/haskell-tls/debian/patches/series
@@ -1 +1,2 @@
 x509-1.7
+tests-timeout
diff --git a/p/haskell-tls/debian/patches/tests-timeout b/p/haskell-tls/debian/patches/tests-timeout
new file mode 100644
index 0000000..6f83fb2
--- /dev/null
+++ b/p/haskell-tls/debian/patches/tests-timeout
@@ -0,0 +1,17 @@
+Description: Increase timeout for tests
+Author: Ilias Tsitsimpis <iliastsi at debian.org>
+---
+
+Index: b/Tests/Tests.hs
+===================================================================
+--- a/Tests/Tests.hs
++++ b/Tests/Tests.hs
+@@ -51,7 +51,7 @@ runTLSPipe params tlsServer tlsClient =
+     d <- B.pack <$> pick (someWords8 256)
+     run $ writeChan startQueue d
+     -- receive it
+-    dres <- run $ timeout 10000000 $ readChan resultQueue
++    dres <- run $ timeout 600000000 $ readChan resultQueue
+     -- check if it equal
+     Just d `assertEq` dres
+     return ()

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