diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-09-25 12:59:52 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-09-25 12:59:52 +0200 |
| commit | 34550ea8ce4b5e306a537abd9457bba5c72fca94 (patch) | |
| tree | d8007c015a77d32884c4a9bb251470fed2eedd12 | |
| parent | 4776d90c31b3d5bc4117ca7ecde95444adf402ac (diff) | |
| download | emacs-34550ea8ce4b5e306a537abd9457bba5c72fca94.tar.gz | |
Improve Emacs 30 compatibility in tramp-tests.el (don't merge)
* test/lisp/net/tramp-tests.el (tramp--test-deftest-direct-async-process)
(tramp-test30-make-process): Improve Emacs 30 compatibility.
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 3c2ec9275c6..24f17c2cf74 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -5313,7 +5313,7 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'." ;; `make-process' supports file name handlers since Emacs 27. We ;; cannot use `tramp--test-always' during compilation of the macro. (when (let ((file-name-handler-alist '(("" . (lambda (&rest _) t))))) - (ignore-errors (make-process :file-handler t))) + (ignore-errors (make-process :name "" :command "" :file-handler t))) `(ert-deftest ,(intern (concat (symbol-name test) "-direct-async")) () ;; This is the docstring. However, it must be expanded to a ;; string inside the macro. No idea. @@ -5354,7 +5354,7 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'." (let ((default-directory ert-remote-temporary-file-directory) (tmp-name (tramp--test-make-temp-name nil quoted)) kill-buffer-query-functions command proc) - (with-no-warnings (should-not (make-process))) + (should-not (apply #'make-process nil)) ; Use `apply' to avoid warnings. ;; Simple process. (unwind-protect |