From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 19 Apr 2014 21:05:30 +0000 (+0200)
Subject: Instrument `tramp--test-check-files' in order to get traces on hydra.
X-Git-Tag: emacs-24.3.91~122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca2e9fb3064d0891c5143ba52c220f2c99be7273;p=emacs.git

Instrument `tramp--test-check-files' in order to get traces on hydra.
---

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 607718412fd..2572f9c82e4 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1418,6 +1418,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 
 (defun tramp--test-check-files (&rest files)
   "Runs a simple but comprehensive test over every file in FILES."
+  (tramp--instrument-test-case 10
   (let ((tmp-name1 (tramp--test-make-temp-name))
 	(tmp-name2 (tramp--test-make-temp-name 'local)))
     (unwind-protect
@@ -1448,7 +1449,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 			  tmp-name2 nil directory-files-no-dot-files-regexp)
 			 (sort (copy-sequence files) 'string-lessp))))
       (ignore-errors (delete-directory tmp-name1 'recursive))
-      (ignore-errors (delete-directory tmp-name2 'recursive)))))
+      (ignore-errors (delete-directory tmp-name2 'recursive))))))
 
 ;; This test is inspired by Bug#17238.
 (ert-deftest tramp-test30-special-characters ()