From 6b490c070931899a779c3717a2f19625d9e16b19 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 19 Nov 2015 16:56:28 +0100 Subject: [PATCH] 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. --- test/automated/file-notify-tests.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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]." -- 2.39.2