mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Instrument tramp-tests.el

Browse source
This commit is contained in:
Michael Albinus 2022-07-25 11:47:43 +02:00
parent bc3e9f4f6d
commit 7478d1cbf6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/lisp/net/tramp-tests.el
View file

@ -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)