Fix failing echo-server-nowait test

[gnu-emacs] / test / lisp / net / network-stream-tests.el

diff --git a/test/lisp/net/network-stream-tests.el b/test/lisp/net/network-stream-tests.el
index 91cc8b98ccd0f307c14b977576278a8edd5a76f8..f30c92a1de5b3c18e96232cee6c6dcc84d406f52 100644 (file)
--- a/test/lisp/net/network-stream-tests.el
+++ b/test/lisp/net/network-stream-tests.el
@@ -145,6 +145,7 @@
                                      :buffer (generate-new-buffer "*foo*")
                                      :host "localhost"
                                      :nowait t
+                                     :family 'ipv4
                                      :service port)))
     (should (eq (process-status proc) 'connect))
     (while (eq (process-status proc) 'connect)
@@ -238,7 +239,7 @@
   (skip-unless (executable-find "gnutls-serv"))
   (skip-unless (gnutls-available-p))
   (skip-unless (not (eq system-type 'windows-nt)))
-  (skip-unless (featurep 'make-network-process '(family ipv6)))
+  (skip-unless (featurep 'make-network-process '(:family ipv6)))
   (let ((server (make-tls-server 44333))
         (times 0)
         proc status)