diff options
| -rw-r--r-- | test/lisp/autorevert-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index 0cc5b9c4e9d..040dbb45a91 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el | |||
| @@ -150,7 +150,7 @@ This expects `auto-revert--messages' to be bound by | |||
| 150 | (tramp-dissect-file-name temporary-file-directory) nil 'keep-password) | 150 | (tramp-dissect-file-name temporary-file-directory) nil 'keep-password) |
| 151 | (condition-case err | 151 | (condition-case err |
| 152 | (funcall (ert-test-body ert-test)) | 152 | (funcall (ert-test-body ert-test)) |
| 153 | (error (message "%s" err) (signal car err cdr err)))))) | 153 | (error (message "%s" err) (signal (car err) (cdr err))))))) |
| 154 | 154 | ||
| 155 | (ert-deftest auto-revert-test00-auto-revert-mode () | 155 | (ert-deftest auto-revert-test00-auto-revert-mode () |
| 156 | "Check autorevert for a file." | 156 | "Check autorevert for a file." |
| @@ -310,8 +310,9 @@ This expects `auto-revert--messages' to be bound by | |||
| 310 | ;; notification should be disabled, falling back to | 310 | ;; notification should be disabled, falling back to |
| 311 | ;; polling. | 311 | ;; polling. |
| 312 | (should (string-match "any text" (buffer-string))) | 312 | (should (string-match "any text" (buffer-string))) |
| 313 | ;; With w32notify, the 'stopped' events are not sent. | 313 | ;; With w32notify, and on emba, the `stopped' events are not sent. |
| 314 | (or (eq file-notify--library 'w32notify) | 314 | (or (eq file-notify--library 'w32notify) |
| 315 | (getenv "EMACS_EMBA_CI") | ||
| 315 | (should-not auto-revert-notify-watch-descriptor)) | 316 | (should-not auto-revert-notify-watch-descriptor)) |
| 316 | 317 | ||
| 317 | ;; Once the file has been recreated, the buffer shall be | 318 | ;; Once the file has been recreated, the buffer shall be |