masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Improve Tramp test

Browse source 
* test/lisp/net/tramp-tests.el
(tramp-test26-interactive-file-name-completion): Adapt test.
This commit is contained in:
Michael Albinus 2025-05-11 14:25:59 +02:00
parent eaf01d034c
commit 0bf956235e
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5083,6 +5083,14 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
ipv6-postfix tramp-postfix-host-format))) ipv6-postfix tramp-postfix-host-format)))
;; The hop string fits only the initial syntax. ;; The hop string fits only the initial syntax.
(hop (and (eq tramp-syntax orig-syntax) hop)) (hop (and (eq tramp-syntax orig-syntax) hop))
;; Needed for host name completion.
(default-user
(file-remote-p
(concat tramp-prefix-format hop method-string host-string)
'user))
(default-user-string
(unless (tramp-string-empty-or-nil-p default-user)
(concat default-user tramp-postfix-user-format)))
test result completions) test result completions)
(dolist (dolist
@ -5120,7 +5128,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
tramp-prefix-format hop method-string host-string) tramp-prefix-format hop method-string host-string)
,(concat ,(concat
tramp-prefix-format hop method-string tramp-prefix-format hop method-string
user-string host-string)) default-user-string host-string))
,host-string))) ,host-string)))
;; Complete user and host name. ;; Complete user and host name.
(unless (or (tramp-string-empty-or-nil-p user) (unless (or (tramp-string-empty-or-nil-p user)