diff options
| author | Daiki Ueno | 2015-09-03 18:19:12 +0900 |
|---|---|---|
| committer | Daiki Ueno | 2015-09-03 18:20:31 +0900 |
| commit | def5829c0769b142b3cc0d69a9ad58935a9f237f (patch) | |
| tree | 297279726a0a483eb1ec2ad89a4427d9d67e0b44 /test | |
| parent | 777848833cc9ff40411b78ad107e755172a881b8 (diff) | |
| download | emacs-scratch/dbusbind-type-tests.tar.gz emacs-scratch/dbusbind-type-tests.zip | |
dbusbind: Check required args following :typescratch/dbusbind-type-tests
* src/dbusbind.c (xd_build_message): If no argument follows a type
specification, pass Qnil as OBJECT argument of
xd_append_arg_with_type_spec.
* test/automated/dbus-tests.el
(dbus-test04-create-message-parameters): Remove a temporary
comment.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/dbus-tests.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/test/automated/dbus-tests.el b/test/automated/dbus-tests.el index 69afaa324f7..e989f73e68c 100644 --- a/test/automated/dbus-tests.el +++ b/test/automated/dbus-tests.el | |||
| @@ -214,7 +214,6 @@ This includes initialization and closing the bus." | |||
| 214 | (should (equal (plist-get message :args) '(((:array nil) nil)))) | 214 | (should (equal (plist-get message :args) '(((:array nil) nil)))) |
| 215 | (should (equal (plist-get message :signature) "au")) | 215 | (should (equal (plist-get message :signature) "au")) |
| 216 | ;; Test explicit type specifications with `:type' keyword for empty array. | 216 | ;; Test explicit type specifications with `:type' keyword for empty array. |
| 217 | ;; DOES THIS WORK? | ||
| 218 | (setq message (dbus--test-create-message-with-args | 217 | (setq message (dbus--test-create-message-with-args |
| 219 | :type '(:array :uint32))) | 218 | :type '(:array :uint32))) |
| 220 | (should (equal (plist-get message :args) '(((:array nil) nil)))) | 219 | (should (equal (plist-get message :args) '(((:array nil) nil)))) |