diff options
| author | Michael Albinus | 2020-01-22 11:45:26 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-01-22 11:45:26 +0100 |
| commit | 63f69e935e8aac7c8f132096992ae022c088c596 (patch) | |
| tree | 3d006ef8155b577e69e516e43e9eb0488af3e161 | |
| parent | abb2515b0c5b2468f1c0d8345788063fda64ea80 (diff) | |
| download | emacs-63f69e935e8aac7c8f132096992ae022c088c596.tar.gz emacs-63f69e935e8aac7c8f132096992ae022c088c596.zip | |
Minor cleanup in {autorevert,filenotify,shadowfile}-tests.el
* test/lisp/autorevert-tests.el (tramp-message-show-message):
* test/lisp/shadowfile-tests.el (tramp-message-show-message):
* test/lisp/filenotify-tests.el (tramp-message-show-message)
Do Not set.
(file-notify-test04-autorevert): Inhibit messages.
| -rw-r--r-- | test/lisp/autorevert-tests.el | 3 | ||||
| -rw-r--r-- | test/lisp/filenotify-tests.el | 49 | ||||
| -rw-r--r-- | test/lisp/shadowfile-tests.el | 1 |
3 files changed, 26 insertions, 27 deletions
diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index f7c5580b111..ec3e4bb77ba 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el | |||
| @@ -59,8 +59,7 @@ | |||
| 59 | auto-revert-notify-exclude-dir-regexp "nothing-to-be-excluded" | 59 | auto-revert-notify-exclude-dir-regexp "nothing-to-be-excluded" |
| 60 | auto-revert-stop-on-user-input nil | 60 | auto-revert-stop-on-user-input nil |
| 61 | file-notify-debug nil | 61 | file-notify-debug nil |
| 62 | tramp-verbose 0 | 62 | tramp-verbose 0) |
| 63 | tramp-message-show-message nil) | ||
| 64 | 63 | ||
| 65 | (defconst auto-revert--timeout (1+ auto-revert-interval) | 64 | (defconst auto-revert--timeout (1+ auto-revert-interval) |
| 66 | "Time to wait for a message.") | 65 | "Time to wait for a message.") |
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index e9dc7532d59..39156fbb5dc 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el | |||
| @@ -200,8 +200,7 @@ Return nil when any other file notification watch is still active." | |||
| 200 | 200 | ||
| 201 | (setq file-notify-debug nil | 201 | (setq file-notify-debug nil |
| 202 | password-cache-expiry nil | 202 | password-cache-expiry nil |
| 203 | tramp-verbose 0 | 203 | tramp-verbose 0) |
| 204 | tramp-message-show-message nil) | ||
| 205 | 204 | ||
| 206 | ;; This should happen on hydra only. | 205 | ;; This should happen on hydra only. |
| 207 | (when (getenv "EMACS_HYDRA_CI") | 206 | (when (getenv "EMACS_HYDRA_CI") |
| @@ -929,17 +928,18 @@ delivered." | |||
| 929 | ;; Modify file. We wait for a second, in order to have | 928 | ;; Modify file. We wait for a second, in order to have |
| 930 | ;; another timestamp. | 929 | ;; another timestamp. |
| 931 | (ert-with-message-capture captured-messages | 930 | (ert-with-message-capture captured-messages |
| 932 | (sleep-for 1) | 931 | (let ((inhibit-message t)) |
| 933 | (write-region | 932 | (sleep-for 1) |
| 934 | "another text" nil file-notify--test-tmpfile nil 'no-message) | 933 | (write-region |
| 935 | 934 | "another text" nil file-notify--test-tmpfile nil 'no-message) | |
| 936 | ;; Check, that the buffer has been reverted. | 935 | |
| 937 | (file-notify--test-wait-for-events | 936 | ;; Check, that the buffer has been reverted. |
| 938 | timeout | 937 | (file-notify--test-wait-for-events |
| 939 | (string-match | 938 | timeout |
| 940 | (format-message "Reverting buffer `%s'." (buffer-name buf)) | 939 | (string-match |
| 941 | captured-messages)) | 940 | (format-message "Reverting buffer `%s'." (buffer-name buf)) |
| 942 | (should (string-match "another text" (buffer-string)))) | 941 | captured-messages)) |
| 942 | (should (string-match "another text" (buffer-string))))) | ||
| 943 | 943 | ||
| 944 | ;; Stop file notification. Autorevert shall still work via polling. | 944 | ;; Stop file notification. Autorevert shall still work via polling. |
| 945 | (file-notify-rm-watch auto-revert-notify-watch-descriptor) | 945 | (file-notify-rm-watch auto-revert-notify-watch-descriptor) |
| @@ -953,17 +953,18 @@ delivered." | |||
| 953 | ;; have another timestamp. One second seems to be too | 953 | ;; have another timestamp. One second seems to be too |
| 954 | ;; short. And Cygwin sporadically requires more than two. | 954 | ;; short. And Cygwin sporadically requires more than two. |
| 955 | (ert-with-message-capture captured-messages | 955 | (ert-with-message-capture captured-messages |
| 956 | (sleep-for (if (eq system-type 'cygwin) 3 2)) | 956 | (let ((inhibit-message t)) |
| 957 | (write-region | 957 | (sleep-for (if (eq system-type 'cygwin) 3 2)) |
| 958 | "foo bla" nil file-notify--test-tmpfile nil 'no-message) | 958 | (write-region |
| 959 | 959 | "foo bla" nil file-notify--test-tmpfile nil 'no-message) | |
| 960 | ;; Check, that the buffer has been reverted. | 960 | |
| 961 | (file-notify--test-wait-for-events | 961 | ;; Check, that the buffer has been reverted. |
| 962 | timeout | 962 | (file-notify--test-wait-for-events |
| 963 | (string-match | 963 | timeout |
| 964 | (format-message "Reverting buffer `%s'." (buffer-name buf)) | 964 | (string-match |
| 965 | captured-messages)) | 965 | (format-message "Reverting buffer `%s'." (buffer-name buf)) |
| 966 | (should (string-match "foo bla" (buffer-string)))) | 966 | captured-messages)) |
| 967 | (should (string-match "foo bla" (buffer-string))))) | ||
| 967 | 968 | ||
| 968 | ;; Stop autorevert, in order to cleanup descriptor. | 969 | ;; Stop autorevert, in order to cleanup descriptor. |
| 969 | (auto-revert-mode -1)) | 970 | (auto-revert-mode -1)) |
diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 650782bc53c..ed23e064743 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el | |||
| @@ -70,7 +70,6 @@ | |||
| 70 | (setq password-cache-expiry nil | 70 | (setq password-cache-expiry nil |
| 71 | shadow-debug (getenv "EMACS_HYDRA_CI") | 71 | shadow-debug (getenv "EMACS_HYDRA_CI") |
| 72 | tramp-verbose 0 | 72 | tramp-verbose 0 |
| 73 | tramp-message-show-message nil | ||
| 74 | ;; On macOS, `temporary-file-directory' is a symlinked directory. | 73 | ;; On macOS, `temporary-file-directory' is a symlinked directory. |
| 75 | temporary-file-directory (file-truename temporary-file-directory) | 74 | temporary-file-directory (file-truename temporary-file-directory) |
| 76 | shadow-test-remote-temporary-file-directory | 75 | shadow-test-remote-temporary-file-directory |