[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4f50d8d: Add more network tests
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 4f50d8d: Add more network tests |
Date: |
Mon, 08 Feb 2016 03:35:29 +0000 |
branch: master
commit 4f50d8db8c54ca3fb80cd52c34099c4c0a8fb7dd
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4f50d8d: Add more network tests,
Lars Ingebrigtsen <=