From 20b177d54bb0fdc1b478f3c9db88c6afca55b069 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 15 Sep 2015 15:46:26 +0300 Subject: [PATCH] Fix the file-notify tests for watch validation on w32 * test/automated/file-notify-tests.el (file-notify-test04-file-validity): Move the directory deletion out of the file-notify--test-with-events macro. (file-notify-test04-file-validity) (file-notify-test05-dir-validity): Enlarge the timeout of read-event to 0.5, as 0.1 is borderline on w32. (Bug#21432) --- test/automated/file-notify-tests.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index 3e92925b68a..b962aa7e48f 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el @@ -386,17 +386,17 @@ Don't wait longer than TIMEOUT seconds for the events to be delivered." '(change) #'file-notify--test-event-handler)) (file-notify--test-with-events - 3 3 (lambda (events) - (should (equal '(created changed deleted) + 2 3 (lambda (events) + (should (equal '(created changed) (mapcar #'cadr events)))) (should (file-notify-valid-p file-notify--test-desc)) (write-region "any text" nil file-notify--test-tmpfile nil 'no-message) - (should (file-notify-valid-p file-notify--test-desc)) - (delete-directory temporary-file-directory t)) + (should (file-notify-valid-p file-notify--test-desc))) ;; After deleting the parent, the descriptor must not be valid ;; anymore. - (should-not (file-notify-valid-p file-notify--test-desc))) + (delete-directory temporary-file-directory t) + (read-event nil nil 0.5)) ;; Exit. (file-notify--test-cleanup))) @@ -420,7 +420,7 @@ Don't wait longer than TIMEOUT seconds for the events to be delivered." (delete-directory file-notify--test-tmpfile t) ;; After deleting the directory, the descriptor must not be ;; valid anymore. - (read-event nil nil 0.1) + (read-event nil nil 0.5) (should-not (file-notify-valid-p file-notify--test-desc))) ;; Exit. -- 2.39.2