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

Release Tramp 2.4.2

Browse Source 
* 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.
This commit is contained in:
Michael Albinus 2019-06-30 11:23:06 +02:00
parent efeaf19edf
commit 10af8c5863
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/net/tramp.el
View File

@ -7,7 +7,7 @@
;; Maintainer: Michael Albinus <michael.albinus@gmx.de> ;; Maintainer: Michael Albinus <michael.albinus@gmx.de>
;; Keywords: comm, processes ;; Keywords: comm, processes
;; Package: tramp ;; Package: tramp
;; Version: 2.4.2-pre ;; Version: 2.4.2
;; Package-Requires: ((emacs "24.4")) ;; Package-Requires: ((emacs "24.4"))
;; URL: https://savannah.gnu.org/projects/tramp ;; URL: https://savannah.gnu.org/projects/tramp

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

@ -168,7 +168,10 @@ properly. BODY shall not contain a timeout."
`(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0))) `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0)))
(tramp-message-show-message t) (tramp-message-show-message t)
(debug-ignored-errors (debug-ignored-errors
(cons "^make-symbolic-link not supported$" debug-ignored-errors)) (append
'("^make-symbolic-link not supported$"
"^error with add-name-to-file")
debug-ignored-errors))
inhibit-message) inhibit-message)
(unwind-protect (unwind-protect
(let ((tramp--test-instrument-test-case-p t)) ,@body) (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'."
(declare (indent defun) (debug (body))) (declare (indent defun) (debug (body)))
`(condition-case err `(condition-case err
(progn ,@body) (progn ,@body)
((error quit debug) (file-error
(unless (and (eq (car err) 'file-error) (unless (string-match "^error with add-name-to-file"
(string-match "^error with add-name-to-file" (error-message-string err))
(error-message-string err)))
(signal (car err) (cdr err)))))) (signal (car err) (cdr err))))))
(ert-deftest tramp-test21-file-links () (ert-deftest tramp-test21-file-links ()