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

Solve timimg issues in file-notify-tests.el

Browse source 
* test/automated/file-notify-tests.el (file-notify-test02-events):
Rectify `attribute-change' tests.  There are timing issues with
gfilenotify.
This commit is contained in:
Michael Albinus 2015-10-17 11:20:05 +02:00
parent 4328d3dba2
commit 57be62f97b
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -325,12 +325,24 @@ Don't wait longer than TIMEOUT seconds for the events to be delivered."
file-notify--test-tmpfile
'(attribute-change) 'file-notify--test-event-handler))
(file-notify--test-with-events
(file-notify--test-timeout) '(attribute-changed attribute-changed)
(file-notify--test-timeout) '(attribute-changed)
(write-region
"any text" nil file-notify--test-tmpfile nil 'no-message)
(set-file-modes file-notify--test-tmpfile 000)
(delete-file file-notify--test-tmpfile))
(file-notify-rm-watch file-notify--test-desc)
;; With gfilenotify, there are timing issues with attribute
;; changes in a short time period. So we apply 2 tests.
(setq file-notify--test-desc
(file-notify-add-watch
file-notify--test-tmpfile
'(attribute-change) 'file-notify--test-event-handler))
(file-notify--test-with-events
(file-notify--test-timeout) '(attribute-changed)
(write-region
"any text" nil file-notify--test-tmpfile nil 'no-message)
(set-file-modes file-notify--test-tmpfile 000)
(read-event nil nil 0.1) ; In order to distinguish the events.
(set-file-times file-notify--test-tmpfile '(0 0))
(delete-file file-notify--test-tmpfile))
(file-notify-rm-watch file-notify--test-desc))