mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

Minor change in tramp-tests.el

Browse Source 
* test/lisp/net/tramp-tests.el (tramp-test03-file-name-host-rules):
Cleanup before running the test.
This commit is contained in:
Michael Albinus 2018-07-01 11:58:55 +02:00
parent 32853e1531
commit 8b6812fd90
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/lisp/net/tramp-tests.el
View File

@ -1745,7 +1745,9 @@ handled properly. BODY shall not contain a timeout."
;; Host names must match rules in case the command template of a ;; Host names must match rules in case the command template of a
;; method doesn't use them. ;; method doesn't use them.
(dolist (m '("su" "sg" "sudo" "doas" "ksu")) (dolist (m '("su" "sg" "sudo" "doas" "ksu"))
(let (tramp-default-proxies-alist) (let ((vec (tramp-dissect-file-name tramp-test-temporary-file-directory))
tramp-connection-properties tramp-default-proxies-alist)
(ignore-errors (tramp-cleanup-connection vec nil 'keep-password))
;; Single hop. The host name must match `tramp-local-host-regexp'. ;; Single hop. The host name must match `tramp-local-host-regexp'.
(should-error (should-error
(find-file (format "/%s:foo:" m)) (find-file (format "/%s:foo:" m))
@ -1758,9 +1760,7 @@ handled properly. BODY shall not contain a timeout."
(substring (file-remote-p tramp-test-temporary-file-directory) 0 -1) (substring (file-remote-p tramp-test-temporary-file-directory) 0 -1)
m)) m))
:type :type
(if (tramp-method-out-of-band-p (if (tramp-method-out-of-band-p vec 0) 'file-error 'user-error)))))
(tramp-dissect-file-name tramp-test-temporary-file-directory) 0)
'file-error 'user-error)))))
(ert-deftest tramp-test03-file-name-method-rules () (ert-deftest tramp-test03-file-name-method-rules ()
"Check file name rules for some methods." "Check file name rules for some methods."