procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adapt tramp-tests.el

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test06-directory-file-name)
(tramp-test24-file-name-completion): Call
`tramp-completion-mode-p' with argument.
This commit is contained in:
Michael Albinus 2017-03-10 14:34:23 +01:00
parent ae6b2b8918
commit 7e434ed2eb
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -732,7 +732,8 @@ This checks also `file-name-as-directory', `file-name-directory',
(should
(string-equal
(file-name-as-directory file)
(if (tramp-completion-mode-p) file (concat file "./"))))
(if (tramp-completion-mode-p (tramp-dissect-file-name file))
file (concat file "./"))))
(should (string-equal (file-name-directory file) file))
(should (string-equal (file-name-nondirectory file) ""))))))))
@ -1515,7 +1516,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(progn
;; Method and host name in completion mode. This kind
;; of completion does not work on MS Windows.
(when (and (tramp-completion-mode-p)
(when (and (tramp-completion-mode-p
(tramp-dissect-file-name
tramp-test-temporary-file-directory))
(not (memq system-type '(cygwin windows-nt))))
(unless (zerop (length method))
(should