From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 23 Sep 2020 17:57:03 +0000 (+0200)
Subject: * test/lisp/net/dbus-tests.el (dbus-test01-basic-types): Adapt test.
X-Git-Tag: emacs-28.0.90~5921
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=441e8750198fc68e4b20281c3ee0d76fd8328839;p=emacs.git

* test/lisp/net/dbus-tests.el (dbus-test01-basic-types): Adapt test.
---

diff --git a/test/lisp/net/dbus-tests.el b/test/lisp/net/dbus-tests.el
index 62ed3f2bfb4..2f20fcc1e67 100644
--- a/test/lisp/net/dbus-tests.el
+++ b/test/lisp/net/dbus-tests.el
@@ -265,12 +265,13 @@
    (dbus-check-arguments :session dbus--test-service :double "string")
    :type 'wrong-type-argument)
 
-  ;; `:unix-fd'.  Value range 0 .. 9.
+  ;; `:unix-fd'.  UNIX file descriptors are transfered out-of-band.
+  ;; We do not support this, and so we cannot do much testing here for
+  ;; `:unix-fd' being an argument (which is an index to the file
+  ;; descriptor in the array of file descriptors that accompany the
+  ;; D-Bus message).  Mainly testing, that values out of `:uint32'
+  ;; type range fail.
   (should (dbus-check-arguments :session dbus--test-service :unix-fd 0))
-  (should (dbus-check-arguments :session dbus--test-service :unix-fd 9))
-  (should-error
-   (dbus-check-arguments :session dbus--test-service :unix-fd 10)
-   :type 'dbus-error)
   (should-error
    (dbus-check-arguments :session dbus--test-service :unix-fd -1)
    :type 'args-out-of-range)