procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve loops in file-notify-test06-many-events

Browse source 
* 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.
This commit is contained in:
Michael Albinus 2015-11-19 16:56:28 +01:00
parent c8e266ff5f
commit 6b490c0709
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/automated/file-notify-tests.el
View file

@ -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]."