From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 17 Apr 2019 12:19:42 +0000 (+0200)
Subject: ; Instrument tramp-test32-shell-command for EMBA
X-Git-Tag: emacs-27.0.90~3230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=314c2aa7c4ad813522f6a1bf2e052981dc8a80c2;p=emacs.git

; Instrument tramp-test32-shell-command for EMBA
---

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"