From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 1 Jun 2014 09:33:57 +0000 (+0200)
Subject: * tramp-tests.el (tramp-test29-vc-registered):
X-Git-Tag: emacs-24.3.92~131
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3340452bdc6a1f866e78f99a3b556f1583e20354;p=emacs.git

* tramp-tests.el (tramp-test29-vc-registered):
Instrument failed test case.
---

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 2640ee9cef5..ef229710cdf 100644
--- 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."