summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2019-04-17 14:19:42 +0200
committerMichael Albinus <michael.albinus@gmx.de>2019-04-17 14:19:42 +0200
commit314c2aa7c4ad813522f6a1bf2e052981dc8a80c2 (patch)
treedfcfea4c43143845f62e6258b2fa94b37daecaa8 /test
parent2c06731dca42ee4f10484a6c72b3528e14c548d7 (diff)
downloademacs-314c2aa7c4ad813522f6a1bf2e052981dc8a80c2.tar.gz
; Instrument tramp-test32-shell-command for EMBA
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 64eb1ddefd8..24eb7d6f0bf 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -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'.
(when (tramp--test-sh-p)
(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.
@@ -4197,6 +4199,7 @@ 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"