From 1aeeb9d7440fa78fcde8f08a886aac27d683060a Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Wed, 4 Jan 2017 20:06:16 +0300 Subject: tests/server-client.scm ("message-get-type"): Wait for a session * tests/server-client.scm ("message-get-type"): Wait for a session to be connected on the client side. --- tests/server-client.scm | 6 +++--- 1 file 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") -- cgit v1.2.3