procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add D-Bus test

Browse source 
* test/lisp/net/dbus-tests.el (dbus-test05-register-signal-with-nils):
New test.  (Bug#69926)
This commit is contained in:
Robert Church 2024-06-30 12:16:20 +02:00 • committed by Michael Albinus
parent f784d946d4
commit 4e22ef870c
1 changed files with 52 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -792,6 +792,58 @@ is in progress."
;; Cleanup. ;; Cleanup.
(dbus-unregister-service :session dbus--test-service))) (dbus-unregister-service :session dbus--test-service)))
(ert-deftest dbus-test05-register-signal-with-nils ()
"Check signal registration for an own service.
SERVICE, PATH, INTERFACE and SIGNAL are ‘nil’. This is interpreted as a
wildcard for the respective argument."
(skip-unless dbus--test-enabled-session-bus)
(dbus-ignore-errors (dbus-unregister-service :session dbus--test-service))
(unwind-protect
(let ((member "Member")
(handler #'dbus--test-signal-handler)
registered)
;; Register signal handler.
(should
(equal
(setq
registered
(dbus-register-signal
:session nil nil nil nil handler))
`((:signal :session nil nil)
(nil nil ,handler))))
(dbus-register-signal
:session nil dbus--test-path
dbus--test-interface member handler)
(dbus-register-signal
:session dbus--test-service nil
dbus--test-interface member handler)
(dbus-register-signal
:session dbus--test-service dbus--test-path
nil member handler)
(dbus-register-signal
:session dbus--test-service dbus--test-path
dbus--test-interface nil handler)
;; Send one argument, basic type.
(setq dbus--test-signal-received nil)
(dbus-send-signal
:session dbus--test-service dbus--test-path
dbus--test-interface member "foo")
(with-timeout (1 (dbus--test-timeout-handler))
(while (null dbus--test-signal-received)
(read-event nil nil 0.1)))
(should (equal dbus--test-signal-received '("foo")))
;; Unregister signal.
(should (dbus-unregister-object registered))
(should-not (dbus-unregister-object registered)))
;; Cleanup.
(dbus-unregister-service :session dbus--test-service)))
(ert-deftest dbus-test06-register-property () (ert-deftest dbus-test06-register-property ()
"Check property registration for an own service." "Check property registration for an own service."
(skip-unless dbus--test-enabled-session-bus) (skip-unless dbus--test-enabled-session-bus)