From 6865f4d5075a7262814a3b9db46cb8ec23f1536c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 6 Nov 2013 09:33:02 +0100 Subject: [PATCH] * automated/tramp-tests.el (tramp-test07-file-exists-p): Fix docstring. Instrument, in order to hunt failure on hydra. --- test/ChangeLog | 5 +++++ test/automated/tramp-tests.el | 19 +++++++++++++++---- 2 files changed, 20 insertions(+), 4 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index aac3f6836ae..e032af46af0 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2013-11-06 Michael Albinus + + * automated/tramp-tests.el (tramp-test07-file-exists-p): + Fix docstring. Instrument, in order to hunt failure on hydra. + 2013-11-06 Glenn Morris * automated/flymake-tests.el (warning-predicate-rx-gcc) diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 0282763901d..c80d41688a4 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el @@ -501,15 +501,26 @@ and `file-name-nondirectory'." (unhandled-file-name-directory "/method:host:/path/to/file")))) (ert-deftest tramp-test07-file-exists-p () - "Check `file-exist-p'. -Implicitely, this checks also `write-region' and `delete-file'." - (skip-unless (tramp--test-enabled)) - (let ((tmp-name (tramp--test-make-temp-name))) + "Check `file-exist-p', `write-region' and `delete-file'." + (condition-case err + (with-timeout (20 (should-not 'timeout)) + (message "tramp--test-enabled") + (message "%S" (tramp--test-enabled)) + (skip-unless (tramp--test-enabled)) + (let ((tmp-name (tramp--test-make-temp-name))) + (message "file-exists-p") (should-not (file-exists-p tmp-name)) + (message "write-region") (write-region "foo" nil tmp-name) + (message "file-exists-p") (should (file-exists-p tmp-name)) + (message "delete-file") (delete-file tmp-name) + (message "file-exists-p") (should-not (file-exists-p tmp-name)))) + ((error quit) + (message "%S" err) + (signal (car err) (cdr err))))) (ert-deftest tramp-test08-file-local-copy () "Check `file-local-copy'." -- 2.39.2