[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/async-dns d7e2238 2/7: Add more network tests
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] feature/async-dns d7e2238 2/7: Add more network tests |
Date: |
Tue, 09 Feb 2016 05:09:41 +0000 |
branch: feature/async-dns
commit d7e22381769efa0472bb6bf49e7d06387c6e4fc7
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Add more network tests
* test/lisp/net/network-stream-tests.el (echo-server-nowait):
New test.
---
test/lisp/net/network-stream-tests.el | 33 ++++++++++++++++++++++++++++-----
1 files changed, 28 insertions(+), 5 deletions(-)
diff --git a/test/lisp/net/network-stream-tests.el
b/test/lisp/net/network-stream-tests.el
index 3e0821a..f52a69e 100644
--- a/test/lisp/net/network-stream-tests.el
+++ b/test/lisp/net/network-stream-tests.el
@@ -75,7 +75,7 @@
:filter 'server-process-filter
:host host))
-(defun server-sentinel (proc msg)
+(defun server-sentinel (_proc _msg)
)
(defun server-process-filter (proc string)
@@ -95,7 +95,7 @@
))))
(ert-deftest echo-server-with-dns ()
- (let* ((server (make-server "mouse"))
+ (let* ((server (make-server (system-name)))
(port (aref (process-contact server :local) 4))
(proc (make-network-process :name "foo"
:buffer (generate-new-buffer "*foo*")
@@ -104,7 +104,8 @@
(with-current-buffer "*foo*"
(process-send-string proc "echo foo")
(sleep-for 0.1)
- (should (equal (buffer-string) "foo\n")))))
+ (should (equal (buffer-string) "foo\n")))
+ (delete-process server)))
(ert-deftest echo-server-with-localhost ()
(let* ((server (make-server 'local))
@@ -116,7 +117,8 @@
(with-current-buffer "*foo*"
(process-send-string proc "echo foo")
(sleep-for 0.1)
- (should (equal (buffer-string) "foo\n")))))
+ (should (equal (buffer-string) "foo\n")))
+ (delete-process server)))
(ert-deftest echo-server-with-ip ()
(let* ((server (make-server 'local))
@@ -128,6 +130,27 @@
(with-current-buffer "*foo*"
(process-send-string proc "echo foo")
(sleep-for 0.1)
- (should (equal (buffer-string) "foo\n")))))
+ (should (equal (buffer-string) "foo\n")))
+ (delete-process server)))
+
+(ert-deftest echo-server-nowait ()
+ (let* ((server (make-server 'local))
+ (port (aref (process-contact server :local) 4))
+ (proc (make-network-process :name "foo"
+ :buffer (generate-new-buffer "*foo*")
+ :host "localhost"
+ :nowait t
+ :service port)))
+ (should (eq (process-status proc) 'connect))
+ (should (null (ignore-errors
+ (process-send-string proc "echo bar")
+ t)))
+ (while (eq (process-status proc) 'connect)
+ (sit-for 0.1))
+ (with-current-buffer "*foo*"
+ (process-send-string proc "echo foo")
+ (sleep-for 0.1)
+ (should (equal (buffer-string) "foo\n")))
+ (delete-process server)))
;;; 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 <=
- [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, 2016/02/09
- [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