1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00

Report also result in `file-notify--test-event-handler'

This commit is contained in:
Michael Albinus 2016-02-20 14:20:54 +01:00
parent 5d17ae7d46
commit 6de26a78de

View File

@ -281,7 +281,8 @@ and the event to `file-notify--test-events'."
(unless (string-match
(regexp-quote ".#")
(file-notify--event-file-name file-notify--test-event))
(message "file-notify--test-event-handler %S" file-notify--test-event)
(message "file-notify--test-event-handler result: %s event: %S"
(null (ert-test-failed-p result)) file-notify--test-event)
(setq file-notify--test-events
(append file-notify--test-events `(,file-notify--test-event))
file-notify--test-results