procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modify suppressing `vc-refresh-state' in filenotify-tests.el

Browse source 
* test/lisp/filenotify-tests.el (file-notify-test03-autorevert):
Use an advice rather than an alias for suppressing `vc-refresh-state'.
This commit is contained in:
Michael Albinus 2017-02-08 19:33:52 +01:00
parent c8ee570a8b
commit e3b6596308
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -665,9 +665,6 @@ delivered."
(setq auto-revert-notify-exclude-dir-regexp "nothing-to-be-excluded"
auto-revert-remote-files t
auto-revert-stop-on-user-input nil)
;; In the remote case, `vc-refresh-state' returns undesired error
;; messages. Let's suppress them.
(defalias 'vc-refresh-state 'ignore)
(ert-deftest file-notify-test03-autorevert ()
"Check autorevert via file notification."
@ -679,6 +676,9 @@ delivered."
buf)
(unwind-protect
(progn
;; In the remote case, `vc-refresh-state' returns undesired
;; error messages. Let's suppress them.
(advice-add 'vc-refresh-state :around 'ignore)
(setq file-notify--test-tmpfile (file-notify--test-make-temp-name))
(write-region
"any text" nil file-notify--test-tmpfile nil 'no-message)
@ -748,6 +748,7 @@ delivered."
(file-notify--test-cleanup-p))
;; Cleanup.
(advice-remove 'vc-refresh-state 'ignore)
(ignore-errors (kill-buffer buf))
(file-notify--test-cleanup))))