procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve Emacs 30 compatibility in tramp-tests.el (don't merge)

Browse source 
* test/lisp/net/tramp-tests.el (tramp--test-deftest-direct-async-process)
(tramp-test30-make-process): Improve Emacs 30 compatibility.
This commit is contained in:
Michael Albinus 2023-09-25 12:59:52 +02:00
parent 4776d90c31
commit 34550ea8ce
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/net/tramp-tests.el
View file

@ -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