summaryrefslogtreecommitdiff
path: root/test/lisp/autorevert-tests.el
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2018-09-14 10:03:27 +0200
committerMichael Albinus <michael.albinus@gmx.de>2018-09-14 10:03:27 +0200
commit383c9a253b2cd030674982046e23c3670543dc68 (patch)
tree45debdc5743508108cb7d31586e2a5d1e4252c0d /test/lisp/autorevert-tests.el
parentda4e5f668582e1f047b6bd5259a1a4f92b5461b6 (diff)
downloademacs-383c9a253b2cd030674982046e23c3670543dc68.tar.gz
; Instrument autorevert-tests.el
Diffstat (limited to 'test/lisp/autorevert-tests.el')
-rw-r--r--test/lisp/autorevert-tests.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index b378c9b8b08..9710600f169 100644
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -181,7 +181,10 @@ This expects `auto-revert--messages' to be bound by
;; modifying `before-revert-hook'.
(add-hook
'before-revert-hook
- (lambda () (delete-file buffer-file-name))
+ (lambda ()
+ ;; Temporarily.
+ (message "%s deleted" buffer-file-name)
+ (delete-file buffer-file-name))
nil t)
(ert-with-message-capture auto-revert--messages