From cbe0af11b2bffb1ef534941ac29d1384c9f09549 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 16 Apr 2017 00:16:33 +0200
Subject: 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.
---
gnu/tests/dict.scm | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
(limited to 'gnu/tests')
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))
--
cgit v1.2.3