From: Michael Albinus Date: Fri, 5 Feb 2016 21:55:28 +0000 (+0100) Subject: * test/automated/file-notify-tests.el (file-notify-test06-many-events): X-Git-Tag: emacs-25.0.91~76^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1eaf68f3689c49ee1d191ad3154563a365f7cf05;p=emacs.git * test/automated/file-notify-tests.el (file-notify-test06-many-events): Reduce the number of iterations to 250 in case of w32notify. --- diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index de64f5086d2..629d85be1ef 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)