mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix network stream tests

Browse source 
* 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.
This commit is contained in:
Robert Pluim 2019-02-05 13:47:27 +01:00
parent 369d20559d
commit d087dcf140
1 changed files with 34 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -72,28 +72,34 @@
(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"
:server t
:noquery t
:family 'ipv6
:service t
:host 'local)))
(ignore-errors
(make-network-process
:name "server"
:server t
:noquery t
:family 'ipv6
:service t
:host 'local))))
(skip-unless server)
(should (and (arrayp (process-contact server :local))
(numberp (aref (process-contact server :local) 8))
(> (aref (process-contact server :local) 8) 0)))
(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"
:server t
:noquery t
:family 'ipv6
:service 57870
:host 'local)))
(ignore-errors
(make-network-process
:name "server"
:server t
:noquery t
:family 'ipv6
:service 57870
:host 'local))))
(skip-unless server)
(should (and (arrayp (process-contact server :local))
(= (aref (process-contact server :local) 8) 57870)))
(delete-process server)))
@ -171,18 +177,20 @@
(delete-process server)))
(ert-deftest echo-server-with-local-ipv6 ()
(let* ((server (make-server 'local 'ipv6))
(port (aref (process-contact server :local) 8))
(proc (make-network-process :name "foo"
:buffer (generate-new-buffer "*foo*")
:host 'local
:family 'ipv6
:service port)))
(with-current-buffer (process-buffer proc)
(process-send-string proc "echo foo")
(sleep-for 0.1)
(should (equal (buffer-string) "foo\n")))
(delete-process server)))
(skip-unless (featurep 'make-network-process '(:family ipv6)))
(let ((server (ignore-errors (make-server 'local 'ipv6))))
(skip-unless server)
(let* ((port (aref (process-contact server :local) 8))
(proc (make-network-process :name "foo"
:buffer (generate-new-buffer "*foo*")
:host 'local
:family 'ipv6
:service port)))
(with-current-buffer (process-buffer proc)
(process-send-string proc "echo foo")
(sleep-for 0.1)
(should (equal (buffer-string) "foo\n")))
(delete-process server))))
(ert-deftest echo-server-with-ip ()
(let* ((server (make-server 'local))