diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:15:02 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:15:02 +0300 |
| commit | ca717e9d1ffd172c4f20fdd6c7caba050f1f2ba9 (patch) | |
| tree | b634379e15c01573f69061006c12016fb9130f1f | |
| parent | tests/server-client.scm ("message-get-type"): Make TC more robust (diff) | |
| download | guile-ssh-ca717e9d1ffd172c4f20fdd6c7caba050f1f2ba9.tar.gz | |
tests/tunnel.scm ("call-with-ssh-forward"): Make TC more robust
| -rw-r--r-- | tests/tunnel.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index e58f93b..a5ce933 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -156,7 +156,8 @@ (lambda (channel) (poll channel (lambda (channel) - (write-line (read-line channel) channel)))))) + (write-line (read-line channel) channel) + (while #t (sleep 5))))))) ;; Client (call/pf) (lambda () (set-log-userdata! (string-append (get-log-userdata) " (call/pf)")) |