dbus-tests: Add new testcase for parameter types

* test/automated/dbus-tests.el
(dbus--test-create-message-with-args): New helper function.
(dbus-test04-create-message-parameters): New test.

1 files changed, 56 insertions, 0 deletions

diff --git a/test/automated/dbus-tests.el b/test/automated/dbus-tests.el
index 9465c859505..19f32f53fda 100644
--- a/test/automated/dbus-tests.el
+++ b/test/automated/dbus-tests.el
@@ -172,6 +172,62 @@ This includes initialization and closing the bus."
   (dbus-unregister-service :session dbus-service-emacs)
   (should-not (dbus-ping :session dbus-service-emacs 100)))
 
+(defun dbus--test-create-message-with-args (&rest args)
+  (dbus-ignore-errors
+    (apply #'dbus-message-internal-to-lisp
+           dbus-message-type-method-call
+           :session
+           ;; Passing nil as SERVICE means not to require bus connection.
+           nil
+           dbus-path-dbus dbus-interface-dbus "Hello" #'ignore :timeout 100
+           args)))
+
+(ert-deftest dbus-test04-create-message-parameters ()
+  "Test D-Bus message creation with various parameter specifications."
+  (let (message)
+    ;; Test implicit type specifications for basic types.
+    (setq message (dbus--test-create-message-with-args
+                   1))
+    (should (equal (plist-get message :args) '((:uint32 1))))
+    (should (equal (plist-get message :signature) "u"))
+    ;; Test explicit type specifications for basic types.
+    (setq message (dbus--test-create-message-with-args
+                   :int32 1))
+    (should (equal (plist-get message :args) '((:int32 1))))
+    (should (equal (plist-get message :signature) "i"))
+    ;; Test explicit type specifications with `:type' keyword for basic types.
+    (setq message (dbus--test-create-message-with-args
+                   :type :int32 1))
+    (should (equal (plist-get message :args) '((:int32 1))))
+    (should (equal (plist-get message :signature) "i"))
+    ;; Test explicit type specifications for empty array.
+    (setq message (dbus--test-create-message-with-args
+                   '(:array)))
+    (should (equal (plist-get message :args) '(((:array nil) nil))))
+    (should (equal (plist-get message :signature) "as"))
+    ;; Test implicit type specifications for non-empty array.
+    (setq message (dbus--test-create-message-with-args
+                   '(1 2 3)))
+    (should (equal (plist-get message :args) '(((:array :uint32) (1 2 3)))))
+    (should (equal (plist-get message :signature) "au"))
+    ;; Test explicit type specifications for non-empty array, while
+    ;; element types are implicitly specified.
+    (setq message (dbus--test-create-message-with-args
+                   '(:array 1 2 3)))
+    (should (equal (plist-get message :args) '(((:array :uint32) (1 2 3)))))
+    (should (equal (plist-get message :signature) "au"))
+    ;; Test explicit type specifications for compound types.
+    (setq message (dbus--test-create-message-with-args
+                   '(:array :int32 1 :int32 2 :int32 3)))
+    (should (equal (plist-get message :args) '(((:array :int32) (1 2 3)))))
+    (should (equal (plist-get message :signature) "ai"))
+    ;; Test explicit type specifications with `:type' keyword for
+    ;; compound types.
+    (setq message (dbus--test-create-message-with-args
+                   :type '(:array :int32) '(1 2 3)))
+    (should (equal (plist-get message :args) '(((:array :int32) (1 2 3)))))
+    (should (equal (plist-get message :signature) "ai"))))
+
 (defun dbus-test-all (&optional interactive)
   "Run all tests for \\[dbus]."
   (interactive "p")