diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-04 20:06:16 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-04 20:06:16 +0300 |
| commit | 1aeeb9d7440fa78fcde8f08a886aac27d683060a (patch) | |
| tree | 09e4b7472ce412f864eb3ec0b750aedbc015adef /tests | |
| parent | error.c (guile_ssh_error1): Print errors to the libssh log (diff) | |
| download | guile-ssh-1aeeb9d7440fa78fcde8f08a886aac27d683060a.tar.gz | |
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.
Diffstat (limited to 'tests')
| -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") |