mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

Add more network tests

Browse Source 
* test/lisp/net/network-stream-tests.el (echo-server-nowait):
New test.
This commit is contained in:
Lars Ingebrigtsen 2016-02-08 14:35:07 +11:00
parent 0cc907100c
commit 4f50d8db8c
1 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
test/lisp/net/network-stream-tests.el
View File

@ -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