* automated/tramp-tests.el (tramp-test29-vc-registered):

Instrument failed test case.

diff --git a/test/ChangeLog b/test/ChangeLog
index becf23c58c267b633ebe10630f25c7ac8745fe3d..545e77adee997ad6a13f930924075079b30456cd 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-01  Michael Albinus  <michael.albinus@gmx.de>
+
+       * automated/tramp-tests.el (tramp-test29-vc-registered):
+       Instrument failed test case.
+
 2014-05-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * automated/ruby-mode-tests.el (ruby-assert-face): Use font-lock-ensure.

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 2640ee9cef5b287240aa6e533eeb14abd8484c8c..ef229710cdfa08837164639a2b201b29b5129206 100644 (file)
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1394,6 +1394,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
     (tramp-find-foreign-file-name-handler tramp-test-temporary-file-directory)
     'tramp-sh-file-name-handler))
 
+  (tramp--instrument-test-case 10
   (let* ((default-directory tramp-test-temporary-file-directory)
         (tmp-name1 (tramp--test-make-temp-name))
         (tmp-name2 (expand-file-name "foo" tmp-name1))
@@ -1429,7 +1430,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
                       (list (file-name-nondirectory tmp-name2)))))
          (should (vc-registered tmp-name2)))
 
-       (ignore-errors (delete-directory tmp-name1 'recursive)))))
+       (ignore-errors (delete-directory tmp-name1 'recursive))))))
 
 (defun tramp--test-check-files (&rest files)
   "Runs a simple but comprehensive test over every file in FILES."