From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 14 Mar 2017 14:52:16 +0000 (+0100)
Subject: Reenable lost Tramp test case
X-Git-Tag: emacs-26.0.90~571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a568d0a7d4b62d0b92ecd6450bef1b9a5ac8ae9a;p=emacs.git

Reenable lost Tramp test case

* test/lisp/net/tramp-tests.el (tramp-test24-file-name-completion):
Reenable lost test case.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 6965b49a8e1..45b4ff2f5ab 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -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)