Fix dbus-test04-register-method on CentOS (Bug#51369)

* test/lisp/net/dbus-tests.el (dbus-test04-register-method):
Fix problem on CentOS.  (Bug#51369)
This commit is contained in:
Michael Albinus 2021-11-06 17:25:19 +01:00
parent d96de23510
commit 5e9b4e70ab

View file

@ -631,18 +631,18 @@ This includes initialization and closing the bus."
dbus--test-interface method1 "foo" "bar"))
`(dbus-error ,dbus-error-invalid-args "Wrong arguments (foo bar)")))
;; Three arguments, D-Bus error activated by `dbus-error'
;; signal. On hydra, it is not guaranteed which format the
;; signal. On CentOS, it is not guaranteed which format the
;; error message arises. (Bug#51369)
(unless (getenv "EMACS_HYDRA_CI")
(should
(equal
(should-error
(dbus-call-method
:session dbus--test-service dbus--test-path
dbus--test-interface method1 "foo" "bar" "baz"))
`(dbus-error
,dbus-error-failed
"D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\""))))
(should
(member
(should-error
(dbus-call-method
:session dbus--test-service dbus--test-path
dbus--test-interface method1 "foo" "bar" "baz"))
`((dbus-error "D-Bus signal" "foo" "bar" "baz")
(dbus-error
,dbus-error-failed
"D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\""))))
;; Unregister method.
(should (dbus-unregister-object registered))