; Fix autorevert-tests on MS-Windows

* test/lisp/autorevert-tests.el
(auto-revert-test04-auto-revert-mode-dired): Fix test on
MS-Windows.
This commit is contained in:
Eli Zaretskii 2025-01-19 14:42:46 +02:00
parent f367b01f12
commit be786ab3bb

View file

@ -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))))