diff options
| -rw-r--r-- | test/automated/file-notify-tests.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index a45eff73957..806bdd73bd1 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el | |||
| @@ -105,15 +105,19 @@ being the result.") | |||
| 105 | 105 | ||
| 106 | (defmacro file-notify--deftest-remote (test docstring) | 106 | (defmacro file-notify--deftest-remote (test docstring) |
| 107 | "Define ert `TEST-remote' for remote files." | 107 | "Define ert `TEST-remote' for remote files." |
| 108 | (declare (indent 1)) | ||
| 108 | `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () | 109 | `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () |
| 109 | ,docstring | 110 | ,docstring |
| 110 | (let* ((temporary-file-directory | 111 | (condition-case err |
| 111 | file-notify-test-remote-temporary-file-directory) | 112 | (let* ((temporary-file-directory |
| 112 | (ert-test (ert-get-test ',test))) | 113 | file-notify-test-remote-temporary-file-directory) |
| 113 | (skip-unless (file-notify--test-remote-enabled)) | 114 | (ert-test (ert-get-test ',test))) |
| 114 | (tramp-cleanup-connection | 115 | (skip-unless (file-notify--test-remote-enabled)) |
| 115 | (tramp-dissect-file-name temporary-file-directory) nil 'keep-password) | 116 | (tramp-cleanup-connection |
| 116 | (funcall (ert-test-body ert-test))))) | 117 | (tramp-dissect-file-name temporary-file-directory) |
| 118 | nil 'keep-password) | ||
| 119 | (funcall (ert-test-body ert-test))) | ||
| 120 | ((error quit) (ert-fail err))))) | ||
| 117 | 121 | ||
| 118 | (ert-deftest file-notify-test00-availability () | 122 | (ert-deftest file-notify-test00-availability () |
| 119 | "Test availability of `file-notify'." | 123 | "Test availability of `file-notify'." |