From 4c692f88e86b1ba75bad80c26b07d406f4cf2a34 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Mon, 8 May 2017 23:12:26 +0300
Subject: tests/dist.scm ("with-ssh") <server>: Wait before closing a channel

---
 tests/dist.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/dist.scm b/tests/dist.scm
index 10aa90a..ddf9573 100644
--- a/tests/dist.scm
+++ b/tests/dist.scm
@@ -236,6 +236,7 @@ $4 = #<session #<undefined>@#<undefined>:22 (disconnected) 453fff>"
                              (error "Wrong result 2" result)))
 
                        (write-line "scheme@(guile-user)> $1 = 42\n" c)
+                       (sleep 5)
                        (close c)
                        (while #t
                          (sleep 60))))))
-- 
cgit v1.2.3