diff options
| author | Michael Albinus | 2021-11-06 17:25:19 +0100 |
|---|---|---|
| committer | Michael Albinus | 2021-11-06 17:25:19 +0100 |
| commit | 5e9b4e70ab433fe2eb33c20a02b045c83e70d074 (patch) | |
| tree | eb7447808d4424add415e97bf8ac4278c30b38ac | |
| parent | d96de235108bbd78c440891f4c582dbfd1c4971e (diff) | |
| download | emacs-5e9b4e70ab433fe2eb33c20a02b045c83e70d074.tar.gz emacs-5e9b4e70ab433fe2eb33c20a02b045c83e70d074.zip | |
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)
| -rw-r--r-- | test/lisp/net/dbus-tests.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/test/lisp/net/dbus-tests.el b/test/lisp/net/dbus-tests.el index 71ca3537972..cfc380d3029 100644 --- a/test/lisp/net/dbus-tests.el +++ b/test/lisp/net/dbus-tests.el | |||
| @@ -631,18 +631,18 @@ This includes initialization and closing the bus." | |||
| 631 | dbus--test-interface method1 "foo" "bar")) | 631 | dbus--test-interface method1 "foo" "bar")) |
| 632 | `(dbus-error ,dbus-error-invalid-args "Wrong arguments (foo bar)"))) | 632 | `(dbus-error ,dbus-error-invalid-args "Wrong arguments (foo bar)"))) |
| 633 | ;; Three arguments, D-Bus error activated by `dbus-error' | 633 | ;; Three arguments, D-Bus error activated by `dbus-error' |
| 634 | ;; signal. On hydra, it is not guaranteed which format the | 634 | ;; signal. On CentOS, it is not guaranteed which format the |
| 635 | ;; error message arises. (Bug#51369) | 635 | ;; error message arises. (Bug#51369) |
| 636 | (unless (getenv "EMACS_HYDRA_CI") | 636 | (should |
| 637 | (should | 637 | (member |
| 638 | (equal | 638 | (should-error |
| 639 | (should-error | 639 | (dbus-call-method |
| 640 | (dbus-call-method | 640 | :session dbus--test-service dbus--test-path |
| 641 | :session dbus--test-service dbus--test-path | 641 | dbus--test-interface method1 "foo" "bar" "baz")) |
| 642 | dbus--test-interface method1 "foo" "bar" "baz")) | 642 | `((dbus-error "D-Bus signal" "foo" "bar" "baz") |
| 643 | `(dbus-error | 643 | (dbus-error |
| 644 | ,dbus-error-failed | 644 | ,dbus-error-failed |
| 645 | "D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\"")))) | 645 | "D-Bus error: \"D-Bus signal\", \"foo\", \"bar\", \"baz\"")))) |
| 646 | 646 | ||
| 647 | ;; Unregister method. | 647 | ;; Unregister method. |
| 648 | (should (dbus-unregister-object registered)) | 648 | (should (dbus-unregister-object registered)) |