diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-05-08 10:49:31 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-05-08 10:49:31 +0200 |
| commit | 0728b40cc7b4e171281f7394aa4993b199166b90 (patch) | |
| tree | 4343e9146b67014d1aad0f6c8fccc1bac9dd4310 | |
| parent | 173fd94c11655bde2edf4cd1ee983e025aa06a79 (diff) | |
| download | emacs-0728b40cc7b4e171281f7394aa4993b199166b90.tar.gz emacs-0728b40cc7b4e171281f7394aa4993b199166b90.tar.bz2 emacs-0728b40cc7b4e171281f7394aa4993b199166b90.zip | |
; Instrument auto-revert--deftest-remote
| -rw-r--r-- | test/lisp/autorevert-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index af9edac1bea..8cdddf824d8 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." |