From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 23 Aug 2020 11:19:02 +0000 (+0200)
Subject: ; * test/lisp/net/tramp-tests.el (tramp-test28-process-file): Instrument test.
X-Git-Tag: emacs-28.0.90~6448
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=608b8113cbfb2f24fd806b63306333db7154eb61;p=emacs.git

; * test/lisp/net/tramp-tests.el (tramp-test28-process-file): Instrument test.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 05196e7e4a6..561dd268f84 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4229,6 +4229,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
   (skip-unless (or (tramp--test-adb-p) (tramp--test-sh-p)))
   (skip-unless (not (tramp--test-crypt-p)))
 
+  (tramp--test-instrument-test-case 10
   (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
     (let* ((tmp-name (tramp--test-make-temp-name nil quoted))
 	   (fnnd (file-name-nondirectory tmp-name))
@@ -4289,7 +4290,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 	      (should-not (get-buffer-window (current-buffer) t))))
 
 	;; Cleanup.
-	(ignore-errors (delete-file tmp-name))))))
+	(ignore-errors (delete-file tmp-name)))))))
 
 ;; Must be a command, because used as `sigusr' handler.
 (defun tramp--test-timeout-handler (&rest _ignore)