diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-05-19 19:52:46 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-05-19 19:52:46 +0200 |
| commit | 2b313d17399d3118c466775a7d768492b6785e75 (patch) | |
| tree | 994c187990b461a819bd1a476cbbf6b82d8c8268 /test/lisp/autorevert-tests.el | |
| parent | 2be537e6433b9b2a8d9dcb9c23493755d35d6ecc (diff) | |
| download | emacs-2b313d17399d3118c466775a7d768492b6785e75.tar.gz emacs-2b313d17399d3118c466775a7d768492b6785e75.tar.bz2 emacs-2b313d17399d3118c466775a7d768492b6785e75.zip | |
; Instrument autorevert-tests
Diffstat (limited to 'test/lisp/autorevert-tests.el')
| -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..0cc5b9c4e9d 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el @@ -148,7 +148,9 @@ 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))))) + (condition-case err + (funcall (ert-test-body ert-test)) + (error (message "%s" err) (signal car err cdr err)))))) (ert-deftest auto-revert-test00-auto-revert-mode () "Check autorevert for a file." |