diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-16 08:51:26 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-16 08:51:26 +0400 |
| commit | 8c784c478eef35d4a513570ad2902d4690adafd6 (patch) | |
| tree | e0168f86a313cf71b99239af70f41d548a2ce4dd | |
| parent | tests/tunnel.scm ("port forwarding, direct"): Use 'poll' (diff) | |
| download | guile-ssh-8c784c478eef35d4a513570ad2902d4690adafd6.tar.gz | |
tests/tunnel.scm ("call-with-ssh-forward"): Use 'poll'
* tests/tunnel.scm ("call-with-ssh-forward"): 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 469e0d5..f6060e4 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -168,8 +168,7 @@ (call-with-ssh-forward tunnel (lambda (sock) (write-line %test-string sock) - (while (not (char-ready? sock))) - (read-line sock))))))) + (poll sock read-line))))))) ;; Handle the result. (lambda (result) result))) |