From 5511e5c59a50e1ba96692608e5cfa321653f9a75 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 26 Jan 2014 17:20:13 +0100 Subject: [PATCH] * automated/file-notify-tests.el (file-notify-test02-events): Let test case fail for Bug#16519. --- test/ChangeLog | 5 +++++ test/automated/file-notify-tests.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index 4b931acbf22..d09d9e524a3 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2014-01-26 Michael Albinus + + * automated/file-notify-tests.el (file-notify-test02-events): + Let test case fail for Bug#16519. + 2014-01-22 Michael Albinus * automated/file-notify-tests.el (file-notify-test02-events): diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index de0f32b5e94..073fb4c6522 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el @@ -199,6 +199,10 @@ TIMEOUT is the maximum time to wait for." (ert-deftest file-notify-test02-events () "Check file creation/removal notifications." + ;; Bug#16519. + :expected-result + (if (and noninteractive (memq file-notify--library '(gfilenotify w32notify))) + :failed :passed) (skip-unless (file-notify--test-local-enabled)) (let (desc) (unwind-protect @@ -237,9 +241,7 @@ TIMEOUT is the maximum time to wait for." (ignore-errors (delete-file file-notify--test-tmpfile)) (ignore-errors (delete-file file-notify--test-tmpfile1)))) - (should - (or file-notify--test-results - (and noninteractive (eq file-notify--library 'gfilenotify)))) ;; Bug#16519. + (should file-notify--test-results) (dolist (result file-notify--test-results) ;(message "%s" (ert-test-result-messages result)) (when (ert-test-failed-p result) -- 2.39.2