; Add traces to auto-revert-test02-auto-revert-deleted-file

diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index 0ff3c5a4071f29b4ea50c6bfc6f2329d0143d490..9c41ea7af9f0b2f4d50ed3ca459f970eb7e7da91 100644 (file)
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -111,7 +111,7 @@ being the result.")
      (cons
       t (ignore-errors
          (and
-          (not (getenv "EMACS_HYDRA_CI"))
+          (not (getenv "EMACS_HYDRA_CI")(getenv "EMACS_HYDRA_CI"))
           (file-remote-p auto-revert-test-remote-temporary-file-directory)
           (file-directory-p auto-revert-test-remote-temporary-file-directory)
           (file-writable-p
@@ -277,6 +277,9 @@ This expects `auto-revert--messages' to be bound by
 ;  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
 
   (let ((tmpfile (make-temp-file "auto-revert-test"))
+        ;; Try to catch bug#32645.
+        (auto-revert-debug (getenv "EMACS_HYDRA_CI"))
+        (file-notify-debug (getenv "EMACS_HYDRA_CI"))
         buf desc)
     (unwind-protect
        (progn