diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-07-01 11:58:55 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-07-01 11:58:55 +0200 |
| commit | 8b6812fd905be2484364c75a62fd7e371d686adb (patch) | |
| tree | ccbfe62538ff3a5d3ade1fb44b9d62574a4cc108 | |
| parent | 32853e1531532af6f6dad4aba86cf6464aac8437 (diff) | |
| download | emacs-8b6812fd905be2484364c75a62fd7e371d686adb.tar.gz | |
Minor change in tramp-tests.el
* test/lisp/net/tramp-tests.el (tramp-test03-file-name-host-rules):
Cleanup before running the test.
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 504b0aae785..5c5eff8798d 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -1745,7 +1745,9 @@ handled properly. BODY shall not contain a timeout." ;; Host names must match rules in case the command template of a ;; method doesn't use them. (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'. (should-error (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) m)) :type - (if (tramp-method-out-of-band-p - (tramp-dissect-file-name tramp-test-temporary-file-directory) 0) - 'file-error 'user-error))))) + (if (tramp-method-out-of-band-p vec 0) 'file-error 'user-error))))) (ert-deftest tramp-test03-file-name-method-rules () "Check file name rules for some methods." |