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

Report used native library in file-notify-tests.el

Browse source 
* test/automated/file-notify-tests.el
(tramp-get-remote-gvfs-monitor-dir)
(tramp-get-remote-inotifywait): Declare them.
(file-notify-test00-availability): Print used native library.
This commit is contained in:
Michael Albinus 2015-09-10 20:01:33 +02:00
parent 76093858d2
commit 5f33465866
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -39,6 +39,9 @@
(require 'filenotify)
(require 'tramp)
(declare-function tramp-get-remote-gvfs-monitor-dir "tramp-sh")
(declare-function tramp-get-remote-inotifywait "tramp-sh")
;; There is no default value on w32 systems, which could work out of the box.
(defconst file-notify-test-remote-temporary-file-directory
(cond
@ -136,6 +139,23 @@ being the result.")
(ert-deftest file-notify-test00-availability ()
"Test availability of `file-notify'."
(skip-unless (file-notify--test-local-enabled))
;; Report the native library which has been used.
(message
"%s library: `%s'"
(if (null (file-remote-p temporary-file-directory)) "Local" "Remote")
(if (null (file-remote-p temporary-file-directory))
file-notify--library
;; FIXME: This is rude, using Tramp internal functions. Maybe
;; the upcoming `file-notify-available-p' could return the used
;; native library.
(with-parsed-tramp-file-name temporary-file-directory nil
(cond
;; gvfs-monitor-dir.
((tramp-get-remote-gvfs-monitor-dir v) 'gfilenotify)
;; inotifywait.
((tramp-get-remote-inotifywait v) 'inotify)
;; None.
(t (ert-fail "No remote library available"))))))
(should
(setq file-notify--test-desc
(file-notify-add-watch temporary-file-directory '(change) 'ignore)))