diff options
| author | Michael Albinus | 2025-03-28 19:26:23 +0100 |
|---|---|---|
| committer | Michael Albinus | 2025-03-28 19:26:23 +0100 |
| commit | 8a986e7075dc83c0b87f0928ba767215c3c6a377 (patch) | |
| tree | 22ebfb1595415e75f71f40484ecfd92d6e0d7629 /test | |
| parent | 8acbde02a03b4cdf8dcfba0472e9eb4a440028f6 (diff) | |
| download | emacs-8a986e7075dc83c0b87f0928ba767215c3c6a377.tar.gz emacs-8a986e7075dc83c0b87f0928ba767215c3c6a377.zip | |
tramp-tests cleanup
* test/lisp/net/tramp-tests.el (tramp-test26-file-name-completion)
(tramp-test26-interactive-file-name-completion): Adapt tests.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 55461819f66..5c5b8c0b157 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -4874,7 +4874,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 4874 | (tramp-change-syntax syntax) | 4874 | (tramp-change-syntax syntax) |
| 4875 | ;; This has cleaned up all connection data, which are used | 4875 | ;; This has cleaned up all connection data, which are used |
| 4876 | ;; for completion. We must refill the cache. | 4876 | ;; for completion. We must refill the cache. |
| 4877 | (tramp-set-connection-property tramp-test-vec "property" nil) | 4877 | (tramp-set-connection-property tramp-test-vec "completion-use-cache" t) |
| 4878 | 4878 | ||
| 4879 | (let (;; This is needed for the `separate' syntax. | 4879 | (let (;; This is needed for the `separate' syntax. |
| 4880 | (prefix-format (substring tramp-prefix-format 1)) | 4880 | (prefix-format (substring tramp-prefix-format 1)) |
| @@ -4988,9 +4988,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 4988 | ;; and Bug#60505. | 4988 | ;; and Bug#60505. |
| 4989 | (ert-deftest tramp-test26-interactive-file-name-completion () | 4989 | (ert-deftest tramp-test26-interactive-file-name-completion () |
| 4990 | "Check interactive completion with different `completion-styles'." | 4990 | "Check interactive completion with different `completion-styles'." |
| 4991 | ;; Method, user and host name in completion mode. | ||
| 4992 | (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password) | ||
| 4993 | 4991 | ||
| 4992 | ;; Method, user and host name in completion mode. | ||
| 4994 | (let ((method (file-remote-p ert-remote-temporary-file-directory 'method)) | 4993 | (let ((method (file-remote-p ert-remote-temporary-file-directory 'method)) |
| 4995 | (user (file-remote-p ert-remote-temporary-file-directory 'user)) | 4994 | (user (file-remote-p ert-remote-temporary-file-directory 'user)) |
| 4996 | (host (file-remote-p ert-remote-temporary-file-directory 'host)) | 4995 | (host (file-remote-p ert-remote-temporary-file-directory 'host)) |
| @@ -5012,7 +5011,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 5012 | (tramp-change-syntax syntax) | 5011 | (tramp-change-syntax syntax) |
| 5013 | ;; This has cleaned up all connection data, which are used | 5012 | ;; This has cleaned up all connection data, which are used |
| 5014 | ;; for completion. We must refill the cache. | 5013 | ;; for completion. We must refill the cache. |
| 5015 | (tramp-set-connection-property tramp-test-vec "property" nil) | 5014 | (tramp-set-connection-property tramp-test-vec "completion-use-cache" t) |
| 5016 | 5015 | ||
| 5017 | (dolist | 5016 | (dolist |
| 5018 | (style | 5017 | (style |