Commit 314c2aa7 authored by Michael Albinus's avatar Michael Albinus

; Instrument tramp-test32-shell-command for EMBA

parent 2c06731d
Pipeline #1325 failed with stage
in 52 minutes and 53 seconds
...@@ -4188,6 +4188,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." ...@@ -4188,6 +4188,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
;; Test `shell-command-width' of `async-shell-command'. ;; Test `shell-command-width' of `async-shell-command'.
(when (tramp--test-sh-p) (when (tramp--test-sh-p)
(let (shell-command-width) (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 (should
(string-equal (string-equal
;; `frame-width' does not return a proper value. ;; `frame-width' does not return a proper value.
...@@ -4197,6 +4199,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." ...@@ -4197,6 +4199,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(tramp--test-shell-command-to-string-asynchronously (tramp--test-shell-command-to-string-asynchronously
"tput cols"))) "tput cols")))
(setq shell-command-width 1024) (setq shell-command-width 1024)
(tramp--test-message "Hallo3 %s" (ignore-errors (tramp--test-shell-command-to-string-asynchronously "tput cols")))
(should (should
(string-equal (string-equal
"1024\n" "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