Commit 4969489c authored by Michael Albinus's avatar Michael Albinus
Browse files

Adapt test in file-notify-tests.el

* test/automated/file-notify-tests.el
(file-notify-test04-file-validity): Skip for w32notify in
batch-mode.  Add test lost last commit.
parent d605a539
......@@ -377,6 +377,9 @@ Don't wait longer than TIMEOUT seconds for the events to be delivered."
(ert-deftest file-notify-test04-file-validity ()
"Check `file-notify-valid-p' for files."
(skip-unless (file-notify--test-local-enabled))
;; The batch-mode operation of w32notify is fragile (there's no
;; input threads to send the message to).
(skip-unless (not (and noninteractive (eq file-notify--library 'w32notify))))
(unwind-protect
(let ((temporary-file-directory (make-temp-file
"file-notify-test-parent" t)))
......@@ -396,7 +399,8 @@ Don't wait longer than TIMEOUT seconds for the events to be delivered."
;; After deleting the parent, the descriptor must not be valid
;; anymore.
(delete-directory temporary-file-directory t)
(read-event nil nil 0.5))
(read-event nil nil 0.5)
(should-not (file-notify-valid-p file-notify--test-desc)))
;; Exit.
(file-notify--test-cleanup)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment