mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Adapt `tramp-test49-external-backend-function'

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test49-external-backend-function):
Extend test.
This commit is contained in:
Michael Albinus 2025-10-29 09:19:58 +01:00
parent f0f6fa3b68
commit 8c7b4391a5
1 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -8670,11 +8670,17 @@ process sentinels. They shall not disturb each other."
(let ((default-directory ert-remote-temporary-file-directory))
(should
(string-equal (tramp--test-operation)
(tramp--handler-for-test-operation))))
(tramp--handler-for-test-operation)))
(should
(string-equal (tramp--test-operation "foo")
(tramp--handler-for-test-operation "foo"))))
(let ((default-directory temporary-file-directory))
(should-not
(string-equal (tramp--test-operation)
(tramp--handler-for-test-operation))))
(tramp--handler-for-test-operation)))
(should-not
(string-equal (tramp--test-operation "foo")
(tramp--handler-for-test-operation "foo"))))
(tramp-remove-external-operation
#'tramp--test-operation backend)
@ -8690,11 +8696,17 @@ process sentinels. They shall not disturb each other."
(let ((default-directory ert-remote-temporary-file-directory))
(should-not
(string-equal (tramp--test-operation)
(tramp--handler-for-test-operation))))
(tramp--handler-for-test-operation)))
(should-not
(string-equal (tramp--test-operation "foo")
(tramp--handler-for-test-operation "foo"))))
(let ((default-directory temporary-file-directory))
(should-not
(string-equal (tramp--test-operation)
(tramp--handler-for-test-operation))))))
(tramp--handler-for-test-operation)))
(should-not
(string-equal (tramp--test-operation "foo")
(tramp--handler-for-test-operation "foo"))))))
;; This test is inspired by Bug#29163.
(ert-deftest tramp-test50-auto-load ()