[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5f33465: Report used native library in file-notify-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 5f33465: Report used native library in file-notify-tests.el |
Date: |
Thu, 10 Sep 2015 18:01:49 +0000 |
branch: master
commit 5f334658668eef0fd3c11d24167437fbd5cb3fc1
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Report used native library in file-notify-tests.el
* 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.
---
test/automated/file-notify-tests.el | 20 ++++++++++++++++++++
1 files changed, 20 insertions(+), 0 deletions(-)
diff --git a/test/automated/file-notify-tests.el
b/test/automated/file-notify-tests.el
index eee8ee3..9831afd 100644
--- a/test/automated/file-notify-tests.el
+++ b/test/automated/file-notify-tests.el
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5f33465: Report used native library in file-notify-tests.el,
Michael Albinus <=