[Emacs-diffs] emacs-25 1eaf68f: * test/automated/file-notify-tests.el (file-notify-test06-many-events):

[Michael Albinus]

branch: emacs-25
commit 1eaf68f3689c49ee1d191ad3154563a365f7cf05
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * test/automated/file-notify-tests.el (file-notify-test06-many-events):
    
    Reduce the number of iterations to 250 in case of w32notify.
---
 test/automated/file-notify-tests.el |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/automated/file-notify-tests.el 
b/test/automated/file-notify-tests.el
index de64f50..629d85b 100644
--- a/test/automated/file-notify-tests.el
+++ b/test/automated/file-notify-tests.el
@@ -596,7 +596,7 @@ longer than timeout seconds for the events to be delivered."
            (should (string-match "another text" (buffer-string)))
 
             ;; Stop file notification.  Autorevert shall still work via 
polling.
-           ;; It doesn't work for `w32notify'.
+           ;; It doesn't work for w32notify.
            (unless (string-equal (file-notify--test-library) "w32notify")
              (file-notify-rm-watch auto-revert-notify-watch-descriptor)
              (file-notify--wait-for-events
@@ -797,7 +797,10 @@ longer than timeout seconds for the events to be 
delivered."
          file-notify--test-tmpfile
          '(change) 'file-notify--test-event-handler)))
   (unwind-protect
-      (let ((n 1000)
+      ;; In case of w32notify, the upper limit of events to handle
+      ;; seems to be 260.  Reason unknown.
+      (let ((n (if (string-equal (file-notify--test-library) "w32notify")
+                   250 1000))
             source-file-list target-file-list
             (default-directory file-notify--test-tmpfile))
         (dotimes (i n)