(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) ""))))))))
(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