diff options
| author | Michael Albinus | 2023-03-01 17:07:59 +0100 |
|---|---|---|
| committer | Michael Albinus | 2023-03-01 17:07:59 +0100 |
| commit | 4b99015e15a23bd5cbec021d53ef9fcca25b2441 (patch) | |
| tree | b7ee03eca4492703ecab7a16d1c64f1b810c1a6d /test | |
| parent | 42f46913884c5e431a0e6cc80b1808fc0ca636cf (diff) | |
| download | emacs-4b99015e15a23bd5cbec021d53ef9fcca25b2441.tar.gz emacs-4b99015e15a23bd5cbec021d53ef9fcca25b2441.zip | |
Make Tramp file name completion more quiet
* lisp/net/tramp-sh.el (tramp-perl-file-name-all-completions):
Don't print status message.
(tramp-sh-handle-file-name-all-completions): Return nil when check
fails. (Bug#61890)
* test/lisp/net/tramp-tests.el
(tramp-test26-file-name-completion-with-perl):
(tramp-test26-file-name-completion-with-ls): New tests.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 69004bdbdf3..948bf0ab9e2 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -2530,7 +2530,7 @@ This checks also `file-name-as-directory', `file-name-directory', | |||
| 2530 | (rx bos)) | 2530 | (rx bos)) |
| 2531 | tramp--test-messages)))))) | 2531 | tramp--test-messages)))))) |
| 2532 | 2532 | ||
| 2533 | ;; We do not test lockname here. See | 2533 | ;; We do not test the lock file here. See |
| 2534 | ;; `tramp-test39-make-lock-file-name'. | 2534 | ;; `tramp-test39-make-lock-file-name'. |
| 2535 | 2535 | ||
| 2536 | ;; Do not overwrite if excluded. | 2536 | ;; Do not overwrite if excluded. |
| @@ -4635,6 +4635,10 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 4635 | ;; Cleanup. | 4635 | ;; Cleanup. |
| 4636 | (ignore-errors (delete-directory tmp-name 'recursive))))))) | 4636 | (ignore-errors (delete-directory tmp-name 'recursive))))))) |
| 4637 | 4637 | ||
| 4638 | (tramp--test-deftest-with-perl tramp-test26-file-name-completion) | ||
| 4639 | |||
| 4640 | (tramp--test-deftest-with-ls tramp-test26-file-name-completion) | ||
| 4641 | |||
| 4638 | ;; This test is inspired by Bug#51386, Bug#52758, Bug#53513, Bug#54042 | 4642 | ;; This test is inspired by Bug#51386, Bug#52758, Bug#53513, Bug#54042 |
| 4639 | ;; and Bug#60505. | 4643 | ;; and Bug#60505. |
| 4640 | (ert-deftest tramp-test26-interactive-file-name-completion () | 4644 | (ert-deftest tramp-test26-interactive-file-name-completion () |
| @@ -6561,7 +6565,7 @@ INPUT, if non-nil, is a string sent to the process." | |||
| 6561 | (lambda (&rest _args) "yes"))) | 6565 | (lambda (&rest _args) "yes"))) |
| 6562 | (kill-buffer))) | 6566 | (kill-buffer))) |
| 6563 | ;; A new connection changes process id, and also the | 6567 | ;; A new connection changes process id, and also the |
| 6564 | ;; lockname contents. But the lock file still exists. | 6568 | ;; lock file contents. But it still exists. |
| 6565 | (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password) | 6569 | (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password) |
| 6566 | (should (stringp (with-no-warnings (file-locked-p tmp-name1)))) | 6570 | (should (stringp (with-no-warnings (file-locked-p tmp-name1)))) |
| 6567 | 6571 | ||