summaryrefslogtreecommitdiff
path: root/test/lisp
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2017-05-01 12:16:15 +0200
committerMichael Albinus <michael.albinus@gmx.de>2017-05-01 12:16:15 +0200
commitebff4177e2a0226aa1e65181307acfdadfbded3b (patch)
treeb25e862a92f9f9ce01e4907239ecc2aa4d7440da /test/lisp
parent04f915db9732d275ad1de8add8009c2af9d94d1f (diff)
downloademacs-ebff4177e2a0226aa1e65181307acfdadfbded3b.tar.gz
Fix filenotify-tests.el for cygwin
* test/lisp/filenotify-tests.el (file-notify--test-read-event): Add an additional `sit-for'. (file-notify-test02-rm-watch): Add an additional `file-notify--test-read-event' call.
Diffstat (limited to 'test/lisp')
-rw-r--r--test/lisp/filenotify-tests.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index 54e7ebfc0e5..78a68f21bd1 100644
--- a/test/lisp/filenotify-tests.el
+++ b/test/lisp/filenotify-tests.el
@@ -69,6 +69,7 @@
(defun file-notify--test-read-event ()
"Read one event.
There are different timeouts for local and remote file notification libraries."
+ (sit-for 0.001 'nodisp)
(read-event
nil nil
(cond
@@ -426,6 +427,7 @@ This returns only for the local case and gfilenotify; otherwise it is nil.
;; Remove first watch.
(file-notify-rm-watch file-notify--test-desc)
;; Only the second callback shall run.
+ (file-notify--test-read-event)
(delete-file file-notify--test-tmpfile)
(file-notify--wait-for-events
(file-notify--test-timeout) results)
@@ -953,7 +955,7 @@ delivered."
;; After deleting the parent directory, the descriptor must
;; not be valid anymore.
(should-not (file-notify-valid-p file-notify--test-desc))
- ;; w32notify doesn't generate 'stopped' events when the parent
+ ;; w32notify doesn't generate `stopped' events when the parent
;; directory is deleted, which doesn't provide a chance for
;; filenotify.el to remove the descriptor from the internal
;; hash table it maintains. So we must remove the descriptor