[Emacs-diffs] master 9742069: Further attempt to avoid hang in network-stream-tests

[Glenn Morris]

branch: master
commit 9742069276b497eb4190dade54dd239e2cf78c17
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Further attempt to avoid hang in network-stream-tests
    
    * test/lisp/net/network-stream-tests.el (connect-to-tls-ipv6-nowait):
    Limit the time we wait for the external process.
---
 test/lisp/net/network-stream-tests.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/lisp/net/network-stream-tests.el 
b/test/lisp/net/network-stream-tests.el
index e7bb3e8..9ee3a28 100644
--- a/test/lisp/net/network-stream-tests.el
+++ b/test/lisp/net/network-stream-tests.el
@@ -280,8 +280,11 @@
                       (< (setq times (1+ times)) 10))
             (sit-for 0.1))
           (should proc)
-          (while (eq (process-status proc) 'connect)
-            (sit-for 0.1)))
+          (setq times 0)
+          (while (and (eq (process-status proc) 'connect)
+                      (< (setq times (1+ times)) 10))
+            (sit-for 0.1))
+          (skip-unless (not (eq (process-status proc) 'connect))))
       (if (process-live-p server) (delete-process server)))
     (setq status (gnutls-peer-status proc))
     (should (consp status))