[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114999: * automated/tramp-tests.el (tramp-test07-fi
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] trunk r114999: * automated/tramp-tests.el (tramp-test07-file-exists-p): |
Date: |
Wed, 06 Nov 2013 08:33:05 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 114999
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2013-11-06 09:33:02 +0100
message:
* automated/tramp-tests.el (tramp-test07-file-exists-p):
Fix docstring. Instrument, in order to hunt failure on hydra.
modified:
test/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-8588
test/automated/tramp-tests.el tramptests.el-20131105142319-d9zp3oprkpxj5v1e-1
=== modified file 'test/ChangeLog'
--- a/test/ChangeLog 2013-11-06 07:50:18 +0000
+++ b/test/ChangeLog 2013-11-06 08:33:02 +0000
@@ -1,3 +1,8 @@
+2013-11-06 Michael Albinus <address@hidden>
+
+ * automated/tramp-tests.el (tramp-test07-file-exists-p):
+ Fix docstring. Instrument, in order to hunt failure on hydra.
+
2013-11-06 Glenn Morris <address@hidden>
* automated/flymake-tests.el (warning-predicate-rx-gcc)
=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el 2013-11-05 14:46:57 +0000
+++ b/test/automated/tramp-tests.el 2013-11-06 08:33:02 +0000
@@ -501,15 +501,26 @@
(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'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114999: * automated/tramp-tests.el (tramp-test07-file-exists-p):,
Michael Albinus <=