Update copyright year to 2015

[gnu-emacs] / test / automated / inotify-test.el

diff --git a/test/automated/inotify-test.el b/test/automated/inotify-test.el
index edda7ef04188fd7c2281576bac985641e0bf61ff..187b59054cd6b88675e567fdacff53e8258d2f14 100644 (file)
--- a/test/automated/inotify-test.el
+++ b/test/automated/inotify-test.el
@@ -1,6 +1,6 @@
 ;;; inotify-tests.el --- Test suite for inotify. -*- lexical-binding: t -*-
 
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2015 Free Software Foundation, Inc.
 
 ;; Author: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
 ;; Keywords:       internal
@@ -25,36 +25,40 @@
 
 (require 'ert)
 
-(when (featurep 'inotify)
-
-  ;; (ert-deftest filewatch-file-watch-aspects-check ()
-  ;;   "Test whether `file-watch' properly checks the aspects."
-  ;;   (let ((temp-file (make-temp-file "filewatch-aspects")))
-  ;;     (should (stringp temp-file))
-  ;;     (should-error (file-watch temp-file 'wrong nil)
-  ;;                   :type 'error)
-  ;;     (should-error (file-watch temp-file '(modify t) nil)
-  ;;                   :type 'error)
-  ;;     (should-error (file-watch temp-file '(modify all-modify) nil)
-  ;;                   :type 'error)
-  ;;     (should-error (file-watch temp-file '(access wrong modify) nil)
-  ;;                   :type 'error)))
-
-  (ert-deftest inotify-file-watch-simple ()
-    "Test if watching a normal file works."
-    (let ((temp-file (make-temp-file "inotify-simple"))
-          (events 0))
-      (let ((wd
-            (inotify-add-watch temp-file t (lambda (ev)
-                                              (setq events (1+ events))))))
-       (unwind-protect
-           (progn
-             (with-temp-file temp-file
-               (insert "Foo\n"))
-             (sit-for 5) ;; Hacky. Wait for 5s until events are processed
-             (should (> events 0)))
-         (inotify-rm-watch wd)))))
-)
+(declare-function inotify-add-watch "inotify.c" (file-name aspect callback))
+(declare-function inotify-rm-watch "inotify.c" (watch-descriptor))
+
+;; (ert-deftest filewatch-file-watch-aspects-check ()
+;;   "Test whether `file-watch' properly checks the aspects."
+;;   (let ((temp-file (make-temp-file "filewatch-aspects")))
+;;     (should (stringp temp-file))
+;;     (should-error (file-watch temp-file 'wrong nil)
+;;                   :type 'error)
+;;     (should-error (file-watch temp-file '(modify t) nil)
+;;                   :type 'error)
+;;     (should-error (file-watch temp-file '(modify all-modify) nil)
+;;                   :type 'error)
+;;     (should-error (file-watch temp-file '(access wrong modify) nil)
+;;                   :type 'error)))
+
+(ert-deftest inotify-file-watch-simple ()
+  "Test if watching a normal file works."
+
+  (skip-unless (featurep 'inotify))
+  (let ((temp-file (make-temp-file "inotify-simple"))
+       (events 0))
+    (let ((wd
+          (inotify-add-watch temp-file t (lambda (_ev)
+                                           (setq events (1+ events))))))
+      (unwind-protect
+         (progn
+           (with-temp-file temp-file
+             (insert "Foo\n"))
+           (read-event nil nil 5)
+           (should (> events 0)))
+       (inotify-rm-watch wd)
+       (delete-file temp-file)))))
 
 (provide 'inotify-tests)
+
 ;;; inotify-tests.el ends here.