mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

* automated/file-notify-tests.el (file-notify-test02-events):

Browse Source 
Let test case fail for Bug#16519.
This commit is contained in:
Michael Albinus 2014-01-26 17:20:13 +01:00
parent 4988180d71
commit 5511e5c59a
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/ChangeLog
View File

@ -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):

8
test/automated/file-notify-tests.el
View File

@ -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)