Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix network-stream-tests.el for MS-Windows

Browse source 
* 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.
This commit is contained in:
Eli Zaretskii 2016-02-13 15:17:51 +02:00
parent d98ae99839
commit f96cfce306
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/net/network-stream-tests.el
View file

@ -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)