Commit 2116dfff authored by Michael Albinus's avatar Michael Albinus

Fix tramp-test32-shell-command

* test/lisp/net/tramp-tests.el (tramp-test32-shell-command):
Run only if "tput" exist.
parent 0797897f
Pipeline #1331 failed with stage
in 52 minutes and 57 seconds
......@@ -4186,10 +4186,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(ignore-errors (delete-file tmp-name)))
;; Test `shell-command-width' of `async-shell-command'.
(when (tramp--test-sh-p)
;; `executable-find' has changed the number of parameters in
;; Emacs 27.1, so we use `apply' for older Emacsen.
(when (and (executable-find "tput")
(apply #'executable-find '("tput" 'remote)))
(let (shell-command-width)
(tramp--test-message "Hallo1 %s" (ignore-errors (car (process-lines "tput" "cols"))))
(tramp--test-message "Hallo2 %s" (ignore-errors (tramp--test-shell-command-to-string-asynchronously "tput cols")))
(should
(string-equal
;; `frame-width' does not return a proper value.
......@@ -4199,7 +4201,6 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(tramp--test-shell-command-to-string-asynchronously
"tput cols")))
(setq shell-command-width 1024)
(tramp--test-message "Hallo3 %s" (ignore-errors (tramp--test-shell-command-to-string-asynchronously "tput cols")))
(should
(string-equal
"1024\n"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment