From 450f455620a926064f5322af64c3c7b439fd0fae Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Tue, 5 Feb 2019 13:47:27 +0100 Subject: [PATCH] Fix network stream tests To: emacs-devel@gnu.org * test/lisp/net/network-stream-tests.el (make-ipv6-tcp-server-with-unspecified-port): Skip if IPv6 is not available. (make-ipv6-tcp-server-with-specified-port): Likewise. (echo-server-with-local-ipv6): Likewise. --- test/lisp/net/network-stream-tests.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/lisp/net/network-stream-tests.el b/test/lisp/net/network-stream-tests.el index 6151c3064c..b8b0a8fd82 100644 --- a/test/lisp/net/network-stream-tests.el +++ b/test/lisp/net/network-stream-tests.el @@ -72,6 +72,7 @@ (delete-process server))) (ert-deftest make-ipv6-tcp-server-with-unspecified-port () + (skip-unless (featurep 'make-network-process '(:family ipv6))) (let ((server (make-network-process :name "server" @@ -86,6 +87,7 @@ (delete-process server))) (ert-deftest make-ipv6-tcp-server-with-specified-port () + (skip-unless (featurep 'make-network-process '(:family ipv6))) (let ((server (make-network-process :name "server" @@ -171,6 +173,7 @@ server-process-filter (delete-process server))) (ert-deftest echo-server-with-local-ipv6 () + (skip-unless (featurep 'make-network-process '(:family ipv6))) (let* ((server (make-server 'local 'ipv6)) (port (aref (process-contact server :local) 8)) (proc (make-network-process :name "foo" -- 2.20.1.142.g77556354bb