andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Format filenotify-tests.el

Browse source
This commit is contained in:
Michael Albinus 2019-01-07 16:59:43 +01:00
parent 536e6dea0f
commit b513feb812
1 changed files with 61 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/lisp/filenotify-tests.el
View file

@ -450,7 +450,7 @@ This returns only for the local case and gfilenotify; otherwise it is nil.
;; harm. This fails on Cygwin because of timing issues unless a
;; long `sit-for' is added before the call to
;; `file-notify--test-read-event'.
(if (not (eq system-type 'cygwin))
(unless (eq system-type 'cygwin)
(let (results)
(cl-flet ((first-callback (event)
(when (eq (nth 1 event) 'deleted) (push 1 results)))
@ -1014,9 +1014,10 @@ delivered."
;; Cleanup.
(file-notify--test-cleanup))
;; On emba, `deleted' and `stopped' events of the directory are not detected.
(unless (getenv "EMACS_EMBA_CI")
(unwind-protect
;; On emba, `deleted' and `stopped' events of the directory are
;; not detected.
(unless (getenv "EMACS_EMBA_CI")
(let ((file-notify--test-tmpdir
(make-temp-file "file-notify-test-parent" t)))
(should
@ -1062,10 +1063,10 @@ delivered."
(file-notify--rm-descriptor file-notify--test-desc))
;; The environment shall be cleaned up.
(file-notify--test-cleanup-p))
(file-notify--test-cleanup-p)))
;; Cleanup.
(file-notify--test-cleanup))))
(file-notify--test-cleanup)))
(file-notify--deftest-remote file-notify-test05-file-validity
"Check `file-notify-valid-p' via file notification for remote files.")
@ -1099,10 +1100,10 @@ delivered."
;; Cleanup.
(file-notify--test-cleanup))
;; On emba, `deleted' and `stopped' events of the directory are not detected.
(unless (getenv "EMACS_EMBA_CI")
(unwind-protect
(progn
;; On emba, `deleted' and `stopped' events of the directory are
;; not detected.
(unless (getenv "EMACS_EMBA_CI")
(should
(setq file-notify--test-tmpfile
(make-temp-file "file-notify-test-parent" t)))
@ -1125,7 +1126,7 @@ delivered."
(file-notify--test-cleanup-p))
;; Cleanup.
(file-notify--test-cleanup))))
(file-notify--test-cleanup)))
(file-notify--deftest-remote file-notify-test06-dir-validity
"Check `file-notify-valid-p' via file notification for remote directories.")