[Guile-commits] 01/02: tests: Throw 'unresolved when the REPL server is too slow.

[Ludovic Courtès]

civodul pushed a commit to branch stable-2.0
in repository guile.

commit 8d6209ea56241bb1890c142539927c9ef3fb5a13
Author: Ludovic Courtès <address@hidden>
Date:   Fri Nov 4 22:44:32 2016 +0100

    tests: Throw 'unresolved when the REPL server is too slow.
    
    * test-suite/tests/00-repl-server.test (call-with-repl-server):
    Use (usleep 100) instead of (sleep 1).  Throw 'unresolved when TRIES is
    too high.
---
 test-suite/tests/00-repl-server.test |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test-suite/tests/00-repl-server.test 
b/test-suite/tests/00-repl-server.test
index ca389ba..1f570a9 100644
--- a/test-suite/tests/00-repl-server.test
+++ b/test-suite/tests/00-repl-server.test
@@ -61,10 +61,11 @@ socket connected to that server."
                (lambda ()
                  (connect client-socket sockaddr))
                (lambda args
-                 (when (and (memv (system-error-errno args)
-                                  (list ENOENT ECONNREFUSED))
-                            (< tries 3))
-                   (sleep 1)
+                 (when (memv (system-error-errno args)
+                             (list ENOENT ECONNREFUSED))
+                   (when (> tries 30)
+                     (throw 'unresolved))
+                   (usleep 100)
                    (loop (+ tries 1))))))
 
            (proc client-socket))