diff options
Diffstat (limited to 'test/lisp/autorevert-tests.el')
-rw-r--r-- | test/lisp/autorevert-tests.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index 45cf6353960..96169c75d3d 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el @@ -1,4 +1,4 @@ -;;; auto-revert-tests.el --- Tests of auto-revert -*- lexical-binding: t -*- +;;; autorevert-tests.el --- Tests of auto-revert -*- lexical-binding: t -*- ;; Copyright (C) 2015-2021 Free Software Foundation, Inc. @@ -133,7 +133,9 @@ This expects `auto-revert--messages' to be bound by (format-message "Reverting buffer `%s'\\." (buffer-name buffer)) (or auto-revert--messages "")))) - (if (with-current-buffer buffer auto-revert-use-notify) + (if (and (or file-notify--library + (file-remote-p temporary-file-directory)) + (with-current-buffer buffer auto-revert-use-notify)) (read-event nil nil 0.05) (sleep-for 0.05))))) @@ -284,7 +286,7 @@ This expects `auto-revert--messages' to be bound by ;; Repeated unpredictable failures, bug#32645. ;; Unlikely to be hydra-specific? ; (skip-unless (not (getenv "EMACS_HYDRA_CI"))) - + :tags '(:unstable) (with-auto-revert-test (let ((tmpfile (make-temp-file "auto-revert-test")) ;; Try to catch bug#32645. @@ -669,6 +671,12 @@ This expects `auto-revert--messages' to be bound by (auto-revert--deftest-remote auto-revert-test07-auto-revert-several-buffers "Check autorevert for several buffers visiting the same remote file.") +;; Mark all tests as unstable on Cygwin (bug#49665). +(when (eq system-type 'cygwin) + (dolist (test (apropos-internal "^auto-revert" #'ert-test-boundp)) + (setf (ert-test-tags (ert-get-test test)) + (cons :unstable (ert-test-tags (ert-get-test test)))))) + (defun auto-revert-test-all (&optional interactive) "Run all tests for \\[auto-revert]." (interactive "p") |