mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

* test/lisp/net/dbus-tests.el: Add timeout tests.

Browse source 
(dbus-test04-call-method-timeout, dbus-test07-introspection-timeout):
New tests.
This commit is contained in:
Hugh Daschbach 2020-09-30 11:23:24 +02:00 • committed by Michael Albinus
parent 0bc19c17fd
commit 2018090987
1 changed files with 38 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
test/lisp/net/dbus-tests.el
View file

@ -632,6 +632,28 @@ This includes initialization and closing the bus."
;; Cleanup.
(dbus-unregister-service :session dbus--test-service)))
(ert-deftest dbus-test04-call-method-timeout ()
"Verify `dbus-call-method' request timeout."
:tags '(:expensive-test)
(skip-unless dbus--test-enabled-session-bus)
(dbus-ignore-errors (dbus-unregister-service :session dbus--test-service))
(dbus-register-service :session dbus--test-service)
(unwind-protect
(let ((start (current-time)))
;; Test timeout override for method call.
(should-error
(dbus-call-method
:session dbus--test-service dbus--test-path
dbus-interface-introspectable "Introspect" :timeout 2500)
:type 'dbus-error)
(should
(< 2.4 (float-time (time-since start)) 2.7)))
(dbus-unregister-service :session dbus--test-service)))
(defvar dbus--test-signal-received nil
"Received signal value in `dbus--test-signal-handler'.")
@ -1760,6 +1782,22 @@ The argument EXPECTED-ARGS is a list of expected arguments for the method."
(dbus-unregister-service :session dbus--test-service)))
(ert-deftest dbus-test07-introspection-timeout ()
"Verify introspection request timeouts."
:tags '(:expensive-test)
(skip-unless dbus--test-enabled-session-bus)
(dbus-ignore-errors (dbus-unregister-service :session dbus--test-service))
(dbus-register-service :session dbus--test-service)
(unwind-protect
(let ((start (current-time)))
(dbus-introspect-xml :session dbus--test-service dbus--test-path)
;; Introspection internal timeout is one second.
(should
(< 1.0 (float-time (time-since start)))))
(dbus-unregister-service :session dbus--test-service)))
(defun dbus-test-all (&optional interactive)
"Run all tests for \\[dbus]."
(interactive "p")