aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/autorevert-tests.el3
-rw-r--r--test/lisp/filenotify-tests.el49
-rw-r--r--test/lisp/shadowfile-tests.el1
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