From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 26 Jan 2014 16:20:13 +0000 (+0100)
Subject: * automated/file-notify-tests.el (file-notify-test02-events):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~241^2~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5511e5c59a50e1ba96692608e5cfa321653f9a75;p=emacs.git

* automated/file-notify-tests.el (file-notify-test02-events):
Let test case fail for Bug#16519.
---

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  <michael.albinus@gmx.de>
+
+	* automated/file-notify-tests.el (file-notify-test02-events):
+	Let test case fail for Bug#16519.
+
 2014-01-22  Michael Albinus  <michael.albinus@gmx.de>
 
 	* 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)