diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-08-07 22:41:53 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-08-07 22:44:57 +0400 |
| commit | f2156d1ce281099e2facb68f69153258a902fdc1 (patch) | |
| tree | 899a0d48e83b2b7f454802178e6b9436b4018a21 /tests | |
| parent | NEWS, THANKS: Update (diff) | |
| download | guile-ssh-f2156d1ce281099e2facb68f69153258a902fdc1.tar.gz | |
tests/tunnel.scm ("call-with-ssh-forward"): Use 'poll' procedure
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/tunnel.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index f6060e4..8a21695 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -154,7 +154,9 @@ (lambda (server) (start-server/dt-test server (lambda (channel) - (write-line (read-line channel) channel)))) + (poll channel + (lambda (channel) + (write-line (read-line channel) channel)))))) ;; Client (call/pf) (lambda () (set-log-userdata! (string-append (get-log-userdata) " (call/pf)")) |