diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-03-10 14:34:23 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-03-10 14:34:23 +0100 |
| commit | 7e434ed2ebc4f9fddd6f7d34e7a9907729fd3bcf (patch) | |
| tree | cee2c624b13e2563022b4aaa90a8111cbe8209da /test | |
| parent | ae6b2b8918007c8694563dd8ba14207a560d72c1 (diff) | |
| download | emacs-7e434ed2ebc4f9fddd6f7d34e7a9907729fd3bcf.tar.gz | |
Adapt tramp-tests.el
* test/lisp/net/tramp-tests.el (tramp-test06-directory-file-name)
(tramp-test24-file-name-completion): Call
`tramp-completion-mode-p' with argument.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 0c3068aeb09..a854f4e87dc 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -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 |