diff options
Diffstat (limited to 'test/automated/inotify-test.el')
-rw-r--r-- | test/automated/inotify-test.el | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/test/automated/inotify-test.el b/test/automated/inotify-test.el deleted file mode 100644 index 54977925f86..00000000000 --- a/test/automated/inotify-test.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; inotify-tests.el --- Test suite for inotify. -*- lexical-binding: t -*- - -;; Copyright (C) 2012-2016 Free Software Foundation, Inc. - -;; Author: RĂ¼diger Sonderfeld <ruediger@c-plusplus.de> -;; Keywords: internal -;; Human-Keywords: internal - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. - -;;; Code: - -(require 'ert) - -(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. |