diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2015-10-17 11:20:05 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-10-17 11:20:05 +0200 |
| commit | 57be62f97b8442218f4fa6979cf27b36d5d5f540 (patch) | |
| tree | 2d23bc5f8f4f288bd4d4b6a7c6e877a14de256e7 | |
| parent | 4328d3dba2cc4f6089a8efb964c2539164d5db91 (diff) | |
| download | emacs-57be62f97b8442218f4fa6979cf27b36d5d5f540.tar.gz | |
Solve timimg issues in file-notify-tests.el
* test/automated/file-notify-tests.el (file-notify-test02-events):
Rectify `attribute-change' tests. There are timing issues with
gfilenotify.
| -rw-r--r-- | test/automated/file-notify-tests.el | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index c943d91c2d0..17636486153 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el @@ -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)) |