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,16 +631,16 @@ This includes initialization and closing the bus."
dbus--test-interface method1 "foo" "bar")) dbus--test-interface method1 "foo" "bar"))
`(dbus-error ,dbus-error-invalid-args "Wrong arguments (foo bar)"))) `(dbus-error ,dbus-error-invalid-args "Wrong arguments (foo bar)")))
;; Three arguments, D-Bus error activated by `dbus-error' ;; 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) ;; error message arises. (Bug#51369)
(unless (getenv "EMACS_HYDRA_CI")
(should (should
(equal (member
(should-error (should-error
(dbus-call-method (dbus-call-method
:session dbus--test-service dbus--test-path :session dbus--test-service dbus--test-path
dbus--test-interface method1 "foo" "bar" "baz")) dbus--test-interface method1 "foo" "bar" "baz"))
`(dbus-error `((dbus-error "D-Bus signal" "foo" "bar" "baz")
(dbus-error
,dbus-error-failed ,dbus-error-failed
"D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\"")))) "D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\""))))