diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:14:26 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:14:26 +0300 |
| commit | 2e392ef788e93f13cbefe85e406583dac54ac7a5 (patch) | |
| tree | 9d1bee3ec4c393211cbc79921d08df0b568d2341 | |
| parent | tests/common.scm (start-server-loop): Improve logging and error handling (diff) | |
| download | guile-ssh-2e392ef788e93f13cbefe85e406583dac54ac7a5.tar.gz | |
tests/server-client.scm ("message-get-type"): Make TC more robust
| -rw-r--r-- | tests/server-client.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/server-client.scm b/tests/server-client.scm index 1d2cccc..ede6ede 100644 --- a/tests/server-client.scm +++ b/tests/server-client.scm @@ -91,19 +91,25 @@ (run-server-test ;; client (lambda (session) + + (usleep 100) + (connect! session) (while (not (connected? session)) - (sleep 1) + (usleep 100) (connect! session)) (clnmsg "connected") (authenticate-server session) (clnmsg "server authenticated") (userauth-none! session) - (clnmsg "client authenticated")) + (clnmsg "client authenticated") + (while #t (sleep 5))) ;; server (lambda (server) (server-listen server) (let ((session (server-accept server))) + (format-log/scm 'nolog "server" + "session: ~a" session) (server-handle-key-exchange session) (let ((msg (server-message-get session))) (let ((msg-type (message-get-type msg)) @@ -125,7 +131,8 @@ (authenticate-server session) (clnmsg "server authenticated") (userauth-none! session) - (clnmsg "client authenticated")) + (clnmsg "client authenticated") + (while #t (sleep 5))) ;; server (lambda (server) |