diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-02-23 19:12:32 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-02-23 19:12:32 +0300 |
| commit | d5bfff8ad47a9f59d13a6c136a86a4b7263d92f7 (patch) | |
| tree | 7a960a948f4320820ab7d78d3e020ac10d678e7a /tests/common.scm | |
| parent | tests/common.scm (start-server/dt-test): Use 'poll' (diff) | |
| download | guile-ssh-d5bfff8ad47a9f59d13a6c136a86a4b7263d92f7.tar.gz | |
tests/common.scm (run-client-test/separate-process): Use 'poll'
Diffstat (limited to 'tests/common.scm')
| -rw-r--r-- | tests/common.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/common.scm b/tests/common.scm index 21f370b..79c8bd7 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -341,11 +341,11 @@ returned by a CLIENT-PROC with a predicate PRED." (connect sock AF_UNIX sock-path) ;; XXX: This too. - (while (not (char-ready? sock))) - - (let ((result (read-line sock))) - (close sock) - (pred result))))))) + (poll sock + (lambda (sock) + (let ((result (read-line sock))) + (close sock) + (pred result))))))))) (define (run-server-test client-proc server-proc) |