[Emacs-diffs] master f96cfce: Fix network-stream-tests.el for MS-Windows

[Eli Zaretskii]

branch: master
commit f96cfce306ddceae9502a1962bc5030854c7acb2
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix network-stream-tests.el for MS-Windows
    
    * test/lisp/net/network-stream-tests.el
    (connect-to-tls-ipv6-nowait): Skip for MS-Windows builds.
    (connect-to-tls-ipv4-wait): Add a 0.1 sleep-for.
---
 test/lisp/net/network-stream-tests.el |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/test/lisp/net/network-stream-tests.el 
b/test/lisp/net/network-stream-tests.el
index 92c5370..a5e146f 100644
--- a/test/lisp/net/network-stream-tests.el
+++ b/test/lisp/net/network-stream-tests.el
@@ -192,6 +192,10 @@
     (setq status (gnutls-peer-status proc))
     (should (consp status))
     (delete-process proc)
+    ;; This sleep-for is needed for the native MS-Windows build.  If
+    ;; it is removed, the next test mysteriously fails because the
+    ;; initial part of the echo is not received.
+    (sleep-for 0.1)
     (let ((issuer (plist-get (plist-get status :certificate) :issuer)))
       (should (stringp issuer))
       (setq issuer (split-string issuer ","))
@@ -200,6 +204,7 @@
 (ert-deftest connect-to-tls-ipv6-nowait ()
   (skip-unless (executable-find "gnutls-serv"))
   (skip-unless (gnutls-available-p))
+  (skip-unless (not (eq system-type 'windows-nt)))
   (let ((server (make-tls-server))
         (times 0)
         proc status)