guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 03/05: tests: Throw 'unresolved when the REPL server is


From: Andy Wingo
Subject: [Guile-commits] 03/05: tests: Throw 'unresolved when the REPL server is too slow.
Date: Wed, 1 Mar 2017 14:23:20 -0500 (EST)

wingo pushed a commit to branch master
in repository guile.

commit bf58d7bb98f98962ee81447b8553207b00c54481
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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]