]> git.eshelyaron.com Git - emacs.git/commitdiff
Reenable lost Tramp test case
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 14 Mar 2017 14:52:16 +0000 (15:52 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 14 Mar 2017 14:52:16 +0000 (15:52 +0100)
* test/lisp/net/tramp-tests.el (tramp-test24-file-name-completion):
Reenable lost test case.

test/lisp/net/tramp-tests.el

index 6965b49a8e18d871ad4b5d0aee3bbfd9cdee4f8c..45b4ff2f5ab771cf8d9f2303b7bad7c8b3de9a01 100644 (file)
@@ -1529,7 +1529,14 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
                   (member
                    (format "%s:" method)
                    (file-name-all-completions (substring method 0 1) "/"))))
-                (unless (or (zerop (length method)) (zerop (length host)))
+               (unless (zerop (length host))
+                 (let ((tramp-default-method (or method tramp-default-method)))
+                   (should
+                    (member
+                     (format "-:%s:" host)
+                     (file-name-all-completions
+                      (format "-:%s" (substring host 0 1)) "/")))))
+               (unless (or (zerop (length method)) (zerop (length host)))
                  (should
                   (member
                    (format "%s:%s:" method host)