From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 15 Mar 2018 10:32:50 +0000 (+0100)
Subject: Fix an error in tramp-archive-test42-auto-load
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d27fdc54d8bd9b1e5ead1a2243a991baa539fe2b;p=emacs.git

Fix an error in tramp-archive-test42-auto-load

* test/lisp/net/tramp-archive-tests.el (tramp-archive-test42-auto-load):
Do not use "/ssh::" as test directory, it could harm.  (Bug#30807)
---

diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el
index 33916f82dac..a3201bdba4a 100644
--- a/test/lisp/net/tramp-archive-tests.el
+++ b/test/lisp/net/tramp-archive-tests.el
@@ -809,7 +809,7 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
   (skip-unless (tramp-archive--test-emacs27-p))
 
   ;; tramp-archive is neither loaded at Emacs startup, nor when
-  ;; loading a file like "/ssh::" (which loads Tramp).
+  ;; loading a file like "/mock::foo" (which loads Tramp).
   (let ((default-directory (expand-file-name temporary-file-directory))
 	(code
 	 "(progn \
@@ -818,7 +818,7 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
 	    (file-attributes %S \"/\") \
 	    (message \"tramp-archive loaded: %%s %%s\" \
               (featurep 'tramp) (featurep 'tramp-archive)))"))
-    (dolist (file `("/ssh::foo" ,(concat tramp-archive-test-archive "foo")))
+    (dolist (file `("/mock::foo" ,(concat tramp-archive-test-archive "foo")))
       (should
        (string-match
 	(format