diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2019-06-15 11:08:05 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2019-06-15 11:08:05 +0200 |
commit | 7d71d0b13d311f60183358a1df696652785f97dc (patch) | |
tree | fe3b2037bc81bdec8c9d371b11e96328f1f99d43 /test/lisp/autorevert-tests.el | |
parent | 794ba60624a08d1f37764867f382d9be9523f665 (diff) | |
download | emacs-7d71d0b13d311f60183358a1df696652785f97dc.tar.gz |
Tag remote autorevert tests as unstable
* test/lisp/autorevert-tests.el (auto-revert--timeout):
Derive value from `auto-revert-interval'.
(auto-revert--deftest-remote): Tag it as `:unstable'.
(auto-revert-test05-global-notify, auto-revert-test06-write-file):
Suppress final newline. Use `auto-revert--timeout'.
Diffstat (limited to 'test/lisp/autorevert-tests.el')
-rw-r--r-- | test/lisp/autorevert-tests.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index f21fb864f27..37301ffe430 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el @@ -62,7 +62,7 @@ tramp-verbose 0 tramp-message-show-message nil) -(defconst auto-revert--timeout 10 +(defconst auto-revert--timeout (1+ auto-revert-interval) "Time to wait for a message.") (defvar auto-revert--messages nil @@ -140,7 +140,7 @@ This expects `auto-revert--messages' to be bound by (declare (indent 1)) `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () ,docstring - :tags '(:expensive-test) + :tags '(:expensive-test :unstable) (let ((temporary-file-directory auto-revert-test-remote-temporary-file-directory) (auto-revert-remote-files t) @@ -471,7 +471,7 @@ This expects `auto-revert--messages' to be bound by (file-2 (make-temp-file "global-auto-revert-test-2")) (file-3 (make-temp-file "global-auto-revert-test-3")) (file-2b (concat file-2 "-b")) - buf-1 buf-2 buf-3) + require-final-newline buf-1 buf-2 buf-3) (unwind-protect (progn (setq buf-1 (find-file-noselect file-1)) @@ -503,7 +503,7 @@ This expects `auto-revert--messages' to be bound by (auto-revert-test--wait-for (lambda () (buffer-local-value 'auto-revert-notify-watch-descriptor buf-3)) - (+ auto-revert-interval 1)) + auto-revert--timeout) (should (buffer-local-value 'auto-revert-notify-watch-descriptor buf-3)) (auto-revert-test--write-file "3-a" file-3) @@ -515,8 +515,8 @@ This expects `auto-revert--messages' to be bound by (sleep-for 0.5) (should (equal (auto-revert-test--buffer-string buf-1) "1-a")) (auto-revert-test--write-file "1-b" file-1) - (auto-revert-test--wait-for-buffer-text buf-1 "1-b" - (+ auto-revert-interval 1)) + (auto-revert-test--wait-for-buffer-text + buf-1 "1-b" auto-revert--timeout) (should (buffer-local-value 'auto-revert-notify-watch-descriptor buf-1)) @@ -525,8 +525,8 @@ This expects `auto-revert--messages' to be bound by (write-file file-2b)) (should (equal (auto-revert-test--buffer-string buf-2) "2-a")) (auto-revert-test--write-file "2-b" file-2b) - (auto-revert-test--wait-for-buffer-text buf-2 "2-b" - (+ auto-revert-interval 1)) + (auto-revert-test--wait-for-buffer-text + buf-2 "2-b" auto-revert--timeout) (should (buffer-local-value 'auto-revert-notify-watch-descriptor buf-2))) @@ -550,7 +550,7 @@ This expects `auto-revert--messages' to be bound by (let* ((auto-revert-use-notify t) (file-1 (make-temp-file "auto-revert-test")) (file-2 (concat file-1 "-2")) - (buf nil)) + require-final-newline buf) (unwind-protect (progn (setq buf (find-file-noselect file-1)) @@ -565,7 +565,7 @@ This expects `auto-revert--messages' to be bound by (auto-revert-test--write-file "C" file-2) (auto-revert-test--wait-for-buffer-text - buf "C" (+ auto-revert-interval 1)) + buf "C" auto-revert--timeout) (should (equal (buffer-string) "C")))) ;; Clean up. |