diff options
| -rw-r--r-- | test/lisp/net/network-stream-tests.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/net/network-stream-tests.el b/test/lisp/net/network-stream-tests.el index e7bb3e8ccf9..9ee3a281c3d 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)) |