From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 2 Apr 2020 08:00:32 +0000 (+0200)
Subject: ; * test/lisp/net/tramp-tests.el (tramp-test30-make-process): Instrument.
X-Git-Tag: emacs-28.0.90~7676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e243a87904a036473c6ac87229d4ed652d1e49b;p=emacs.git

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

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 2deab9af250..77222197802 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4333,6 +4333,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
   ;; `make-process' supports file name handlers since Emacs 27.
   (skip-unless (tramp--test-emacs27-p))
 
+  (tramp--test-instrument-test-case 10
   (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
     (let ((default-directory tramp-test-temporary-file-directory)
 	  (tmp-name1 (tramp--test-make-temp-name nil quoted))
@@ -4493,7 +4494,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 
 	  ;; Cleanup.
 	  (ignore-errors (delete-process proc))
-	  (ignore-errors (delete-file tmpfile)))))))
+	  (ignore-errors (delete-file tmpfile))))))))
 
 (ert-deftest tramp-test31-interrupt-process ()
   "Check `interrupt-process'."