From: Michael Albinus Date: Thu, 19 Nov 2015 15:56:28 +0000 (+0100) Subject: Improve loops in file-notify-test06-many-events X-Git-Tag: emacs-26.0.90~2931^2~3 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b490c0;p=emacs.git Improve loops in file-notify-test06-many-events * test/automated/file-notify-tests.el (file-notify-test06-many-events): Use `read-event' pauses for the `write-file' loops; otherwise events are lost in inotify and gfilenotify cases. --- diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index b9cd192dd19..81fb42e13b1 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el @@ -657,10 +657,12 @@ Don't wait longer than timeout seconds for the events to be delivered." (push (expand-file-name (format "x%d" i)) x-file-list) (push (expand-file-name (format "y%d" i)) y-file-list)) (file-notify--test-with-events (make-list (+ n n) 'created) - (dolist (file x-file-list) - (write-region "" nil file nil 'no-message)) - (dolist (file y-file-list) - (write-region "" nil file nil 'no-message))) + (let ((x-file-list x-file-list) + (y-file-list y-file-list)) + (while (and x-file-list y-file-list) + (write-region "" nil (pop x-file-list) nil 'no-message) + (read-event nil nil 0.1) + (write-region "" nil (pop y-file-list) nil 'no-message)))) (file-notify--test-with-events (make-list n 'renamed) (let ((x-file-list x-file-list) (y-file-list y-file-list)) @@ -672,7 +674,7 @@ Don't wait longer than timeout seconds for the events to be delivered." (file-notify--test-cleanup))) (file-notify--deftest-remote file-notify-test06-many-events - "Check that events are not dropped remote directories.") + "Check that events are not dropped for remote directories.") (defun file-notify-test-all (&optional interactive) "Run all tests for \\[file-notify]."