diff options
| author | Michael Albinus | 2019-06-30 11:23:06 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-06-30 11:23:06 +0200 |
| commit | 10af8c58635ebc87fe1924e48bef47112ddbd96a (patch) | |
| tree | 31d6704d8a108dd2fb8b830662a5e2c0be007aa9 | |
| parent | efeaf19edfb34bfa517c7911449c5b61bfad17c2 (diff) | |
| download | emacs-10af8c58635ebc87fe1924e48bef47112ddbd96a.tar.gz emacs-10af8c58635ebc87fe1924e48bef47112ddbd96a.zip | |
Release Tramp 2.4.2
* lisp/net/tramp.el: Bump version.
* test/lisp/net/tramp-tests.el (tramp--test-instrument-test-case):
Add `add-name-to-file' error message.
(tramp--test-ignore-add-name-to-file-error): Make error handler
more explicit about the error.
| -rw-r--r-- | lisp/net/tramp.el | 2 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 12 |
2 files changed, 8 insertions, 6 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 90f7491bf51..b3a8b93e2a8 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | ;; Maintainer: Michael Albinus <michael.albinus@gmx.de> | 7 | ;; Maintainer: Michael Albinus <michael.albinus@gmx.de> |
| 8 | ;; Keywords: comm, processes | 8 | ;; Keywords: comm, processes |
| 9 | ;; Package: tramp | 9 | ;; Package: tramp |
| 10 | ;; Version: 2.4.2-pre | 10 | ;; Version: 2.4.2 |
| 11 | ;; Package-Requires: ((emacs "24.4")) | 11 | ;; Package-Requires: ((emacs "24.4")) |
| 12 | ;; URL: https://savannah.gnu.org/projects/tramp | 12 | ;; URL: https://savannah.gnu.org/projects/tramp |
| 13 | 13 | ||
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index afe6488ea71..77b2c263ff8 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -168,7 +168,10 @@ properly. BODY shall not contain a timeout." | |||
| 168 | `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0))) | 168 | `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0))) |
| 169 | (tramp-message-show-message t) | 169 | (tramp-message-show-message t) |
| 170 | (debug-ignored-errors | 170 | (debug-ignored-errors |
| 171 | (cons "^make-symbolic-link not supported$" debug-ignored-errors)) | 171 | (append |
| 172 | '("^make-symbolic-link not supported$" | ||
| 173 | "^error with add-name-to-file") | ||
| 174 | debug-ignored-errors)) | ||
| 172 | inhibit-message) | 175 | inhibit-message) |
| 173 | (unwind-protect | 176 | (unwind-protect |
| 174 | (let ((tramp--test-instrument-test-case-p t)) ,@body) | 177 | (let ((tramp--test-instrument-test-case-p t)) ,@body) |
| @@ -3162,10 +3165,9 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'." | |||
| 3162 | (declare (indent defun) (debug (body))) | 3165 | (declare (indent defun) (debug (body))) |
| 3163 | `(condition-case err | 3166 | `(condition-case err |
| 3164 | (progn ,@body) | 3167 | (progn ,@body) |
| 3165 | ((error quit debug) | 3168 | (file-error |
| 3166 | (unless (and (eq (car err) 'file-error) | 3169 | (unless (string-match "^error with add-name-to-file" |
| 3167 | (string-match "^error with add-name-to-file" | 3170 | (error-message-string err)) |
| 3168 | (error-message-string err))) | ||
| 3169 | (signal (car err) (cdr err)))))) | 3171 | (signal (car err) (cdr err)))))) |
| 3170 | 3172 | ||
| 3171 | (ert-deftest tramp-test21-file-links () | 3173 | (ert-deftest tramp-test21-file-links () |