mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Further improve filenotify-tests.el

Browse Source 
* test/lisp/filenotify-tests.el
(file-notify--test-read-event): Adapt to file monitors of type
GFamFileMonitor, which occur on Cygwin.
(file-notify--test-monitor): Update doc string.
This commit is contained in:
Ken Brown 2016-12-31 16:16:12 -05:00
parent 0513e16459
commit a60d77b840
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/lisp/filenotify-tests.el
View File

@ -70,10 +70,13 @@ There are different timeouts for local and remote file notification libraries."
(read-event
nil nil
(cond
;; gio/gpollfilemonitor.c declares POLL_TIME_SECS 5. So we must
;; wait at least this time.
;; gio/gpollfilemonitor.c declares POLL_TIME_SECS 5. So we must
;; wait at least this time in the GPollFileMonitor case. A
;; similar timeout seems to be needed in the GFamFileMonitor case,
;; at least on Cygwin.
((and (string-equal (file-notify--test-library) "gfilenotify")
(string-equal (file-notify--test-monitor) "GPollFileMonitor"))
(memq (file-notify--test-monitor)
'(GFamFileMonitor GPollFileMonitor)))
7)
((file-remote-p temporary-file-directory) 0.1)
(t 0.01))))
@ -204,7 +207,7 @@ remote host, or nil."
(process-name (cdr file-notify--test-remote-enabled-checked))))))
(defun file-notify--test-monitor ()
"The used monitor for the test, as a string.
"The used monitor for the test, as a symbol.
This returns only for the local case and gfilenotify; otherwise it is nil.
`file-notify--test-desc' must be a valid watch descriptor."
(and file-notify--test-desc