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

Use gnutls-serv instead of openssh

Browse source 
* test/lisp/net/network-stream-tests.el (make-tls-server): Use
gnutls-serv instead of openssh.
This commit is contained in:
Lars Ingebrigtsen 2016-02-09 10:16:14 +11:00
parent de76a167dc
commit fbde8feb79
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -158,23 +158,23 @@
(delete-process server)))
(defun make-tls-server ()
(start-process "openssl" (generate-new-buffer "*tls*") "openssl"
"s_server" "-key" "lisp/net/key.pem"
"-cert" "lisp/net/cert.pem"
"-accept" "44330"
"-www"))
(start-process "gnutls" (generate-new-buffer "*tls*")
"gnutls-serv" "--http"
"--x509keyfile" "lisp/net/key.pem"
"--x509certfile" "lisp/net/cert.pem"
"--port" "44330"))
(ert-deftest connect-to-tls ()
(skip-unless (executable-find "openssl"))
(skip-unless (executable-find "gnutls-serv"))
(skip-unless (gnutls-available-p))
(let ((server (make-tls-server))
(times 0)
proc status)
(sleep-for 1)
(with-current-buffer (process-buffer server)
(message "openssl: %s" (buffer-string)))
(message "gnutls-serv: %s" (buffer-string)))
;; It takes a while for openssl to start.
;; It takes a while for gnutls-serv to start.
(while (and (null (ignore-errors
(setq proc (make-network-process
:name "bar"