aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests/dict.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-04-16 00:16:33 +0200
committerLudovic Courtès <ludo@gnu.org>2017-04-16 00:48:08 +0200
commitcbe0af11b2bffb1ef534941ac29d1384c9f09549 (patch)
tree8d6a00d6c7bbae28a66aa3fa633bf7397cd7ab4c /gnu/tests/dict.scm
parent3d3c56500843b5573ba6419db5e66075fb8ac8ef (diff)
downloadguix-cbe0af11b2bffb1ef534941ac29d1384c9f09549.tar
guix-cbe0af11b2bffb1ef534941ac29d1384c9f09549.tar.gz
tests: dicod: Bail out if we cannot connect within 20 seconds.
* gnu/tests/dict.scm (run-dicod-test)["connect inside"]: Bail out after 20 seconds of failure to connect.
Diffstat (limited to 'gnu/tests/dict.scm')
-rw-r--r--gnu/tests/dict.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/tests/dict.scm b/gnu/tests/dict.scm
index f7a48ab634..16b6edbd9e 100644
--- a/gnu/tests/dict.scm
+++ b/gnu/tests/dict.scm
@@ -97,15 +97,16 @@
'(begin
(use-modules (ice-9 rdelim))
(let ((sock (socket PF_INET SOCK_STREAM 0)))
- (let loop ()
- (pk 'try)
+ (let loop ((i 0))
+ (pk 'try i)
(catch 'system-error
(lambda ()
(connect sock AF_INET INADDR_LOOPBACK 2628))
(lambda args
(pk 'connection-error args)
- (sleep 1)
- (loop))))
+ (when (< i 20)
+ (sleep 1)
+ (loop (+ 1 i))))))
(read-line sock 'concat)))
marionette))