civodul pushed a commit to branch stable-2.0 in repository guile. commit 8d6209ea56241bb1890c142539927c9ef3fb5a13 Author: Ludovic Courtès <l...@gnu.org> 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))