diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-16 08:50:16 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-16 08:50:16 +0400 |
| commit | ea5e0cbbd90d21488c4a2c6779e553c3f8f87b79 (patch) | |
| tree | 71fbcfa16a9ef3ba7b5af5591055ad08cf1f02c0 | |
| parent | tests/dist.scm: Update copyright dates (diff) | |
| download | guile-ssh-ea5e0cbbd90d21488c4a2c6779e553c3f8f87b79.tar.gz | |
tests/tunnel.scm ("port forwarding, direct"): Use 'poll'
* tests/tunnel.scm ("port forwarding, direct"): Use 'poll' procedure from
'common.scm'.
| -rw-r--r-- | tests/tunnel.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index 68f0436..469e0d5 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -77,8 +77,7 @@ (call-with-forward-channel session (lambda (channel) (write-line %test-string channel) - (while (not (char-ready? channel))) - (read-line channel)))))))) + (poll channel read-line)))))))) ;; Create a tunnel, check the result. (test-assert-with-log "make-tunnel" |