]> git.eshelyaron.com Git - emacs.git/commitdiff
New autorevert tests.
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 14 Jul 2015 16:23:39 +0000 (18:23 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 14 Jul 2015 16:23:39 +0000 (18:23 +0200)
* test/automated/auto-revert-tests.el: New file.

test/automated/auto-revert-tests.el [new file with mode: 0644]

diff --git a/test/automated/auto-revert-tests.el b/test/automated/auto-revert-tests.el
new file mode 100644 (file)
index 0000000..a98428f
--- /dev/null
@@ -0,0 +1,210 @@
+;;; auto-revert-tests.el --- Tests of auto-revert
+
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+
+;; Author: Michael Albinus <michael.albinus@gmx.de>
+
+;; This program 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.
+;;
+;; This program 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 this program.  If not, see `http://www.gnu.org/licenses/'.
+
+;;; Commentary:
+
+;; A whole test run can be performed calling the command `auto-revert-test-all'.
+
+;;; Code:
+
+(require 'ert)
+(require 'autorevert)
+(setq auto-revert-notify-exclude-dir-regexp "nothing-to-be-excluded"
+      auto-revert-stop-on-user-input nil)
+
+(defvar auto-revert--timeout 10)
+
+(ert-deftest auto-revert-test00-auto-revert-mode ()
+  "Check autorevert for a file."
+  ;; `auto-revert-buffers' runs every 5".  And we must wait, until the
+  ;; file has been reverted.
+  (let ((tmpfile (make-temp-file "auto-revert-test"))
+        buf)
+    (unwind-protect
+       (progn
+          (with-current-buffer (get-buffer-create "*Messages*")
+            (narrow-to-region (point-max) (point-max)))
+         (write-region "any text" nil tmpfile nil 'no-message)
+         (setq buf (find-file-noselect tmpfile))
+         (with-current-buffer buf
+           (should (string-equal (buffer-string) "any text"))
+            ;; `buffer-stale--default-function' checks for
+            ;; `verify-visited-file-modtime'.  We must ensure that it
+            ;; returns nil.
+            (sleep-for 1)
+           (auto-revert-mode 1)
+           (should auto-revert-mode)
+
+           ;; Modify file.  We wait for a second, in order to have
+           ;; another timestamp.
+           (sleep-for 1)
+            (write-region "another text" nil tmpfile nil 'no-message)
+
+           ;; Check, that the buffer has been reverted.
+            (with-timeout (auto-revert--timeout nil)
+              (with-current-buffer "*Messages*"
+                (while
+                    (null (string-match
+                           (format "Reverting buffer `%s'." (buffer-name buf))
+                           (buffer-string)))
+                  (read-event nil nil 0.1))))
+            (should (string-match "another text" (buffer-string)))
+
+            ;; When the buffer is modified, it shall not be reverted.
+            (with-current-buffer (get-buffer-create "*Messages*")
+              (narrow-to-region (point-max) (point-max)))
+            (set-buffer-modified-p t)
+           (sleep-for 1)
+            (write-region "any text" nil tmpfile nil 'no-message)
+
+           ;; Check, whether the buffer has been reverted.
+            (with-timeout (auto-revert--timeout nil)
+              (with-current-buffer "*Messages*"
+                (while
+                    (null (string-match
+                           (format "Reverting buffer `%s'." (buffer-name buf))
+                           (buffer-string)))
+                  (read-event nil nil 0.1))))
+            (should-not (string-match "any text" (buffer-string)))))
+
+      ;; Exit.
+      (with-current-buffer "*Messages*" (widen))
+      (ignore-errors
+        (with-current-buffer buf (set-buffer-modified-p nil))
+        (kill-buffer buf))
+      (ignore-errors (delete-file tmpfile)))))
+
+(ert-deftest auto-revert-test01-auto-revert-tail-mode ()
+  "Check autorevert tail mode."
+  ;; `auto-revert-buffers' runs every 5".  And we must wait, until the
+  ;; file has been reverted.
+  (let ((tmpfile (make-temp-file "auto-revert-test"))
+        buf)
+    (unwind-protect
+       (progn
+          (with-current-buffer (get-buffer-create "*Messages*")
+            (narrow-to-region (point-max) (point-max)))
+          (write-region "any text" nil tmpfile nil 'no-message)
+         (setq buf (find-file-noselect tmpfile))
+         (with-current-buffer buf
+            ;; `buffer-stale--default-function' checks for
+            ;; `verify-visited-file-modtime'.  We must ensure that it
+            ;; returns nil.
+            (sleep-for 1)
+           (auto-revert-tail-mode 1)
+           (should auto-revert-tail-mode)
+            (erase-buffer)
+            (insert "modified text\n")
+            (set-buffer-modified-p nil)
+
+           ;; Modify file.  We wait for a second, in order to have
+           ;; another timestamp.
+           (sleep-for 1)
+            (write-region "another text" nil tmpfile 'append 'no-message)
+
+           ;; Check, that the buffer has been reverted.
+            (with-timeout (auto-revert--timeout nil)
+              (with-current-buffer "*Messages*"
+                (while
+                    (null (string-match
+                           (format "Reverting buffer `%s'." (buffer-name buf))
+                           (buffer-string)))
+                  (read-event nil nil 0.1))))
+            (should
+             (string-match "modified text\nanother text" (buffer-string)))))
+
+      ;; Exit.
+      (with-current-buffer "*Messages*" (widen))
+      (ignore-errors (kill-buffer buf))
+      (ignore-errors (delete-file tmpfile)))))
+
+(ert-deftest auto-revert-test02-auto-revert-mode-dired ()
+  "Check autorevert for dired."
+  ;; `auto-revert-buffers' runs every 5".  And we must wait, until the
+  ;; file has been reverted.
+  (let* ((tmpfile (make-temp-file "auto-revert-test"))
+         (name (file-name-nondirectory tmpfile))
+         buf)
+    (unwind-protect
+       (progn
+          (with-current-buffer (get-buffer-create "*Messages*")
+            (narrow-to-region (point-max) (point-max)))
+         (setq buf (dired-noselect temporary-file-directory))
+         (with-current-buffer buf
+            ;; `buffer-stale--default-function' checks for
+            ;; `verify-visited-file-modtime'.  We must ensure that it
+            ;; returns nil.
+            (sleep-for 1)
+            (auto-revert-mode 1)
+            (should auto-revert-mode)
+           (should
+             (string-match name (substring-no-properties (buffer-string))))
+
+           ;; Delete file.  We wait for a second, in order to have
+           ;; another timestamp.
+           (sleep-for 1)
+            (delete-file tmpfile)
+
+           ;; Check, that the buffer has been reverted.
+            (with-timeout (auto-revert--timeout nil)
+              (with-current-buffer "*Messages*"
+                (while
+                    (null (string-match
+                           (format "Reverting buffer `%s'." (buffer-name buf))
+                           (buffer-string)))
+                  (read-event nil nil 0.1))))
+            (should
+             (null
+              (string-match name (substring-no-properties (buffer-string)))))
+
+            ;; When the dired buffer is modified, it shall not be
+            ;; reverted.  This is questionable, see Bug#20943.
+            (with-current-buffer (get-buffer-create "*Messages*")
+              (narrow-to-region (point-max) (point-max)))
+            (set-buffer-modified-p t)
+           (sleep-for 1)
+            (write-region "any text" nil tmpfile nil 'no-message)
+
+           ;; Check, that the buffer hasn't been reverted.
+            (with-timeout (auto-revert--timeout nil)
+              (with-current-buffer "*Messages*"
+                (while
+                    (null (string-match
+                           (format "Reverting buffer `%s'." (buffer-name buf))
+                           (buffer-string)))
+                  (read-event nil nil 0.1))))
+            (should-not
+             (string-match name (substring-no-properties (buffer-string))))))
+
+      ;; Exit.
+      (with-current-buffer "*Messages*" (widen))
+      (ignore-errors
+        (with-current-buffer buf (set-buffer-modified-p nil))
+        (kill-buffer buf))
+      (ignore-errors (delete-file tmpfile)))))
+
+(defun auto-revert-test-all (&optional interactive)
+  "Run all tests for \\[auto-revert]."
+  (interactive "p")
+  (if interactive
+      (ert-run-tests-interactively "^auto-revert-")
+    (ert-run-tests-batch "^auto-revert-")))
+
+(provide 'auto-revert-tests)
+;;; auto-revert-tests.el ends here