From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 19 May 2019 17:52:46 +0000 (+0200)
Subject: ; Instrument autorevert-tests
X-Git-Tag: emacs-27.0.90~2816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b313d17399d3118c466775a7d768492b6785e75;p=emacs.git

; Instrument autorevert-tests
---

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."