From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 19 Jan 2025 12:42:46 +0000 (+0200)
Subject: ; Fix autorevert-tests on MS-Windows
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3c513a598cfb56085e632b9b4c3c32cc06459ed;p=emacs.git

; Fix autorevert-tests on MS-Windows

* test/lisp/autorevert-tests.el
(auto-revert-test04-auto-revert-mode-dired): Fix test on
MS-Windows.

(cherry picked from commit be786ab3bb263cb88e548f439562cbdf93587a3f)
---

diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index 8133b5812a7..5e46216cc42 100644
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -390,11 +390,17 @@ This expects `auto-revert--messages' to be bound by
                (should auto-revert-mode)
                (should
                 (string-match name (substring-no-properties (buffer-string))))
+               ;; If we don't sleep for a while, this test fails on
+               ;; MS-Windows.
+               (if (eq system-type 'windows-nt)
+                   (sleep-for 0.5))
 
                (ert-with-message-capture auto-revert--messages
                  ;; Delete file.
                  (delete-file tmpfile)
                  (auto-revert--wait-for-revert buf))
+               (if (eq system-type 'windows-nt)
+                   (sleep-for 1))
                ;; Check, that the buffer has been reverted.
                (should-not
                 (string-match name (substring-no-properties (buffer-string))))