mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 00:31:01 -08:00
Code Issues Projects Releases Wiki Activity

Test file-notify-valid-p.

Browse source 
* test/automated/file-notify-tests.el
(file-notify-test04-file-validity, file-notify-test05-dir-validity): New
tests.
This commit is contained in:
Tassilo Horn 2015-09-14 08:03:11 +02:00
parent fac7dda3a3
commit 7a3f3183cd
1 changed files with 59 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -372,6 +372,65 @@ This test is skipped in batch mode."
"Check autorevert via file notification for remote files.
This test is skipped in batch mode.")
(ert-deftest file-notify-test04-file-validity ()
"Check `file-notify-valid-p'."
(skip-unless (file-notify--test-local-enabled))
(unwind-protect
(progn
(setq file-notify--test-tmpfile (file-notify--test-make-temp-name))
(setq file-notify--test-desc (file-notify-add-watch
file-notify--test-tmpfile
'(change)
#'file-notify--test-event-handler))
(file-notify--test-with-events
3 3 (lambda (events)
(should (equal '(created changed deleted)
(mapcar #'cadr events))))
(should (file-notify-valid-p file-notify--test-desc))
(write-region
"any text" nil file-notify--test-tmpfile nil 'no-message)
(should (file-notify-valid-p file-notify--test-desc))
(delete-file file-notify--test-tmpfile)
;; TODO: Even after deletion, the descriptor stays valid.
;; Is that intended?
(should (file-notify-valid-p file-notify--test-desc))))
;; Exit.
(file-notify--test-cleanup)))
(file-notify--deftest-remote file-notify-test04-file-validity
"Check `file-notify-valid-p' via file notification for remote
files.")
(ert-deftest file-notify-test05-dir-validity ()
"Check `file-notify-valid-p' for directories."
(skip-unless (file-notify--test-local-enabled))
(unwind-protect
(progn
(setq dir (file-name-as-directory
(file-notify--test-make-temp-name)))
(make-directory dir)
(setq file-notify--test-desc (file-notify-add-watch
dir
'(change)
#'file-notify--test-event-handler))
(should (file-notify-valid-p file-notify--test-desc))
(delete-directory dir)
;; TODO: Even after deletion, the descriptor stays valid. Is
;; that intended?
(should (file-notify-valid-p file-notify--test-desc)))
;; FIXME: This signals an exception which indicates that
;; file-notify--test-desc shouldn't really be valid anymore.
(ignore-errors
(file-notify-rm-watch file-notify--test-desc))))
(file-notify--deftest-remote file-notify-test05-dir-validity
"Check `file-notify-valid-p' via file notification for remote
directories.")
(defun file-notify-test-all (&optional interactive)
"Run all tests for \\[file-notify]."
(interactive "p")