diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-16 00:16:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-16 00:48:08 +0200 |
| commit | cbe0af11b2bffb1ef534941ac29d1384c9f09549 (patch) | |
| tree | 8d6a00d6c7bbae28a66aa3fa633bf7397cd7ab4c /gnu/tests | |
| parent | 3d3c56500843b5573ba6419db5e66075fb8ac8ef (diff) | |
| download | patches-cbe0af11b2bffb1ef534941ac29d1384c9f09549.tar patches-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')
| -rw-r--r-- | gnu/tests/dict.scm | 9 |
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)) |