: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)
(defun make-tls-server (port)
(start-process "gnutls" (generate-new-buffer "*tls*")
"gnutls-serv" "--http"
- "--x509keyfile" "lisp/net/key.pem"
- "--x509certfile" "lisp/net/cert.pem"
+ "--x509keyfile" "data/net/key.pem"
+ "--x509certfile" "data/net/cert.pem"
"--port" (format "%s" port)))
(ert-deftest connect-to-tls-ipv4-wait ()
(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)))
(let ((server (make-tls-server 44333))
(times 0)
proc status)