From a62306bbcbd1c0c9c047c62be6ead34cd7be75df Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 3 Jun 2015 14:07:06 +0200
Subject: [PATCH] Instrument file-notify-test.el in order to catch hydra error.
* test/automated/file-notify-tests.el (file-notify--deftest-remote):
Wrap body by `ignore-case', in order to trap non-local errors.
---
test/automated/file-notify-tests.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el
index a45eff73957..806bdd73bd1 100644
--- a/test/automated/file-notify-tests.el
+++ b/test/automated/file-notify-tests.el
@@ -105,15 +105,19 @@ being the result.")
(defmacro file-notify--deftest-remote (test docstring)
"Define ert `TEST-remote' for remote files."
+ (declare (indent 1))
`(ert-deftest ,(intern (concat (symbol-name test) "-remote")) ()
,docstring
- (let* ((temporary-file-directory
- file-notify-test-remote-temporary-file-directory)
- (ert-test (ert-get-test ',test)))
- (skip-unless (file-notify--test-remote-enabled))
- (tramp-cleanup-connection
- (tramp-dissect-file-name temporary-file-directory) nil 'keep-password)
- (funcall (ert-test-body ert-test)))))
+ (condition-case err
+ (let* ((temporary-file-directory
+ file-notify-test-remote-temporary-file-directory)
+ (ert-test (ert-get-test ',test)))
+ (skip-unless (file-notify--test-remote-enabled))
+ (tramp-cleanup-connection
+ (tramp-dissect-file-name temporary-file-directory)
+ nil 'keep-password)
+ (funcall (ert-test-body ert-test)))
+ ((error quit) (ert-fail err)))))
(ert-deftest file-notify-test00-availability ()
"Test availability of `file-notify'."
--
2.39.5