[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/async-dns 71f2245 6/7: Add an IPv6 test
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] feature/async-dns 71f2245 6/7: Add an IPv6 test |
Date: |
Tue, 09 Feb 2016 05:09:42 +0000 |
branch: feature/async-dns
commit 71f22453a5fabbf7d21c8b34bfc2d107eed1db68
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Add an IPv6 test
* test/lisp/net/network-stream-tests.el
(connect-to-tls-ipv6-nowait): Add an ipv6 test, too.
---
test/lisp/net/network-stream-tests.el | 36 ++++++++++++++++++++++++++++++++-
1 files changed, 35 insertions(+), 1 deletions(-)
diff --git a/test/lisp/net/network-stream-tests.el
b/test/lisp/net/network-stream-tests.el
index 9d9d561..a50c7f0 100644
--- a/test/lisp/net/network-stream-tests.el
+++ b/test/lisp/net/network-stream-tests.el
@@ -162,7 +162,7 @@
"--x509certfile" "lisp/net/cert.pem"
"--port" "44330"))
-(ert-deftest connect-to-tls ()
+(ert-deftest connect-to-tls-ipv4-wait ()
(skip-unless (executable-find "gnutls-serv"))
(skip-unless (gnutls-available-p))
(let ((server (make-tls-server))
@@ -194,4 +194,38 @@
(setq issuer (split-string issuer ","))
(should (equal (nth 3 issuer) "O=Emacs Test Servicess LLC")))))
+(ert-deftest connect-to-tls-ipv6-nowait ()
+ (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 "gnutls-serv: %s" (buffer-string)))
+
+ ;; It takes a while for gnutls-serv to start.
+ (while (and (null (ignore-errors
+ (setq proc (make-network-process
+ :name "bar"
+ :buffer (generate-new-buffer "*foo*")
+ :family 'ipv6
+ :nowait t
+ :host "::1"
+ :service 44330))))
+ (< (setq times (1+ times)) 10))
+ (sit-for 0.1))
+ (should proc)
+ (gnutls-negotiate :process proc
+ :type 'gnutls-x509pki
+ :hostname "localhost")
+ (delete-process server)
+ (setq status (gnutls-peer-status proc))
+ (should (consp status))
+ (delete-process proc)
+ (let ((issuer (plist-get (plist-get status :certificate) :issuer)))
+ (should (stringp issuer))
+ (setq issuer (split-string issuer ","))
+ (should (equal (nth 3 issuer) "O=Emacs Test Servicess LLC")))))
+
;;; network-stream-tests.el ends here
- [Emacs-diffs] feature/async-dns updated (12702b3 -> 51d728c), Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns 92acfb9 1/7: Add network tests, Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns 51d728c 7/7: src/process.c Correctly convert AF_INET6 addresses, Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns d7e2238 2/7: Add more network tests, Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns 04913cc 4/7: Skip TLS tests if we don't have openssl, Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns 71f2245 6/7: Add an IPv6 test,
Lars Ingebrigtsen <=
- [Emacs-diffs] feature/async-dns a2d6d79 5/7: Use gnutls-serv instead of openssh, Lars Ingebrigtsen, 2016/02/09
- [Emacs-diffs] feature/async-dns ea87d91 3/7: Add a TLS connection test, Lars Ingebrigtsen, 2016/02/09