From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 25 Jul 2022 09:47:43 +0000 (+0200)
Subject: ; Instrument tramp-tests.el
X-Git-Tag: emacs-29.0.90~1447^2~757
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7478d1cbf64b4a45e047bc0fc9a27ee43d5663c1;p=emacs.git

; Instrument tramp-tests.el
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index e2abb77591f..f2ef5201629 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5357,6 +5357,7 @@ INPUT, if non-nil, is a string sent to the process."
   (when (tramp--test-adb-p)
     (skip-unless (tramp--test-emacs27-p)))
 
+  (tramp--test-instrument-test-case (if (getenv "EMACS_EMBA_CI") 10 0)
   (dolist (quoted (if (tramp--test-expensive-test-p) '(nil t) '(nil)))
     (let ((tmp-name (tramp--test-make-temp-name nil quoted))
 	  (default-directory ert-remote-temporary-file-directory)
@@ -5445,7 +5446,7 @@ INPUT, if non-nil, is a string sent to the process."
 		   (read (tramp--test-shell-command-to-string-asynchronously
 			  "tput cols")))))
       (when (natnump cols)
-	(should (= cols async-shell-command-width))))))
+	(should (= cols async-shell-command-width)))))))
 
 (tramp--test-deftest-direct-async-process tramp-test32-shell-command 'unstable)