]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix an error in tramp-archive-test42-auto-load
authorMichael Albinus <michael.albinus@gmx.de>
Thu, 15 Mar 2018 10:32:50 +0000 (11:32 +0100)
committerAndrew G Cohen <cohen@andy.bu.edu>
Tue, 11 Dec 2018 06:17:30 +0000 (14:17 +0800)
* test/lisp/net/tramp-archive-tests.el (tramp-archive-test42-auto-load):
Do not use "/ssh::" as test directory, it could harm.  (Bug#30807)

test/lisp/net/tramp-archive-tests.el

index 33916f82dacd44e2decd56f0dec061be54a089a8..a3201bdba4a350b008a2b587177abe92bbaaa035 100644 (file)
@@ -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