Commit 0728b40c authored by Michael Albinus's avatar Michael Albinus

; Instrument auto-revert--deftest-remote

parent 173fd94c
Pipeline #1607 failed with stage
in 54 minutes and 59 seconds
...@@ -140,6 +140,7 @@ This expects `auto-revert--messages' to be bound by ...@@ -140,6 +140,7 @@ This expects `auto-revert--messages' to be bound by
`(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) ()
,docstring ,docstring
:tags '(:expensive-test) :tags '(:expensive-test)
(condition-case err
(let ((temporary-file-directory (let ((temporary-file-directory
auto-revert-test-remote-temporary-file-directory) auto-revert-test-remote-temporary-file-directory)
(auto-revert-remote-files t) (auto-revert-remote-files t)
...@@ -148,7 +149,8 @@ This expects `auto-revert--messages' to be bound by ...@@ -148,7 +149,8 @@ This expects `auto-revert--messages' to be bound by
(skip-unless (auto-revert--test-enabled-remote)) (skip-unless (auto-revert--test-enabled-remote))
(tramp-cleanup-connection (tramp-cleanup-connection
(tramp-dissect-file-name temporary-file-directory) nil 'keep-password) (tramp-dissect-file-name temporary-file-directory) nil 'keep-password)
(funcall (ert-test-body ert-test))))) (funcall (ert-test-body ert-test)))
(error (message "%s" err)))))
(ert-deftest auto-revert-test00-auto-revert-mode () (ert-deftest auto-revert-test00-auto-revert-mode ()
"Check autorevert for a file." "Check autorevert for a file."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment