From 314c2aa7c4ad813522f6a1bf2e052981dc8a80c2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 17 Apr 2019 14:19:42 +0200 Subject: [PATCH] ; Instrument tramp-test32-shell-command for EMBA --- test/lisp/net/tramp-tests.el | 3 +++ 1 file changed, 3 insertions(+) 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" -- 2.39.5