[Emacs-diffs] trunk r114999: * automated/tramp-tests.el (tramp-test07-file-exists-p):

[Michael Albinus]

------------------------------------------------------------
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'."