[Emacs-diffs] master 0728b40: ; Instrument auto-revert--deftest-remote

[Michael Albinus]

branch: master
commit 0728b40cc7b4e171281f7394aa4993b199166b90
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; Instrument auto-revert--deftest-remote
---
 test/lisp/autorevert-tests.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index af9edac..8cdddf8 100644
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -140,6 +140,7 @@ This expects `auto-revert--messages' to be bound by
   `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) ()
      ,docstring
      :tags '(:expensive-test)
+     (condition-case err
      (let ((temporary-file-directory
            auto-revert-test-remote-temporary-file-directory)
            (auto-revert-remote-files t)
@@ -148,7 +149,8 @@ This expects `auto-revert--messages' to be bound by
        (skip-unless (auto-revert--test-enabled-remote))
        (tramp-cleanup-connection
        (tramp-dissect-file-name temporary-file-directory) nil 'keep-password)
-       (funcall (ert-test-body ert-test)))))
+       (funcall (ert-test-body ert-test)))
+     (error (message "%s" err)))))
 
 (ert-deftest auto-revert-test00-auto-revert-mode ()
   "Check autorevert for a file."