diff options
| -rw-r--r-- | tests/server-client.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/server-client.scm b/tests/server-client.scm index ea7929d..1d2cccc 100644 --- a/tests/server-client.scm +++ b/tests/server-client.scm @@ -89,11 +89,11 @@ (test-assert-with-log "message-get-type" (run-server-test - ;; client (lambda (session) - (sleep 1) - (connect! session) + (while (not (connected? session)) + (sleep 1) + (connect! session)) (clnmsg "connected") (authenticate-server session) (clnmsg "server authenticated") |