~ruther/guix-local: tests: dicod: Bail out if we cannot connect within 20 seconds.

cbe0af11b2bffb1ef534941ac29d1384c9f09549 — Ludovic Courtès 8 years ago 3d3c565

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 4 deletions(-)

M gnu/tests/dict.scm

M gnu/tests/dict.scm => gnu/tests/dict.scm +5 -4

@@ 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))