From f2156d1ce281099e2facb68f69153258a902fdc1 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 7 Aug 2016 22:41:53 +0400 Subject: tests/tunnel.scm ("call-with-ssh-forward"): Use 'poll' procedure --- tests/tunnel.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests') 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)")) -- cgit v1.2.3