aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/autorevert-tests.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index 8cdddf824d8..af9edac1bea 100644
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -140,7 +140,6 @@ This expects `auto-revert--messages' to be bound by
140 `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () 140 `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) ()
141 ,docstring 141 ,docstring
142 :tags '(:expensive-test) 142 :tags '(:expensive-test)
143 (condition-case err
144 (let ((temporary-file-directory 143 (let ((temporary-file-directory
145 auto-revert-test-remote-temporary-file-directory) 144 auto-revert-test-remote-temporary-file-directory)
146 (auto-revert-remote-files t) 145 (auto-revert-remote-files t)
@@ -149,8 +148,7 @@ This expects `auto-revert--messages' to be bound by
149 (skip-unless (auto-revert--test-enabled-remote)) 148 (skip-unless (auto-revert--test-enabled-remote))
150 (tramp-cleanup-connection 149 (tramp-cleanup-connection
151 (tramp-dissect-file-name temporary-file-directory) nil 'keep-password) 150 (tramp-dissect-file-name temporary-file-directory) nil 'keep-password)
152 (funcall (ert-test-body ert-test))) 151 (funcall (ert-test-body ert-test)))))
153 (error (message "%s" err)))))
154 152
155(ert-deftest auto-revert-test00-auto-revert-mode () 153(ert-deftest auto-revert-test00-auto-revert-mode ()
156 "Check autorevert for a file." 154 "Check autorevert for a file."