Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Instrument file-notify-test07-many-events

Browse source 
* test/lisp/filenotify-tests.el (file-notify-test07-many-events):
Instrument for debugging on emba.
This commit is contained in:
Michael Albinus 2025-09-16 09:04:05 +02:00
parent 76f50fa55c
commit 3cb1cdfba7
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/filenotify-tests.el
View file

@ -882,7 +882,7 @@ delivered."
'(GFamFileMonitor GFamDirectoryMonitor
GKqueueFileMonitor GPollFileMonitor))
'())
;; For GInotifyFileMonitor,`write-region' raises also an
;; For GInotifyFileMonitor, `write-region' raises also an
;; `attribute-changed' event on gio.
((and (string-equal (file-notify--test-library) "gio")
(eq (file-notify--test-monitor) 'GInotifyFileMonitor))
@ -1168,6 +1168,11 @@ delivered."
:tags '(:expensive-test)
(skip-unless (file-notify--test-local-enabled))
(let ((file-notify-debug ;; Temporarily.
(or file-notify-debug
(and (getenv "EMACS_EMBA_CI")
(string-equal (file-notify--test-library) "gio")
(eq (file-notify--test-monitor) 'GInotifyFileMonitor)))))
(with-file-notify-test
(should
(setq file-notify--test-desc
@ -1239,7 +1244,7 @@ delivered."
(file-notify--rm-descriptor file-notify--test-desc)
;; The environment shall be cleaned up.
(file-notify--test-cleanup-p))))
(file-notify--test-cleanup-p)))))
(file-notify--deftest-remote file-notify-test07-many-events
"Check that events are not dropped for remote directories.")