aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2023-03-01 17:07:59 +0100
committerMichael Albinus2023-03-01 17:07:59 +0100
commit4b99015e15a23bd5cbec021d53ef9fcca25b2441 (patch)
treeb7ee03eca4492703ecab7a16d1c64f1b810c1a6d /test
parent42f46913884c5e431a0e6cc80b1808fc0ca636cf (diff)
downloademacs-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.el8
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