From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 15 Sep 2015 12:46:26 +0000 (+0300)
Subject: Fix the file-notify tests for watch validation on w32
X-Git-Tag: emacs-25.0.90~1224^2~123
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20b177d54bb0fdc1b478f3c9db88c6afca55b069;p=emacs.git

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

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.