From 0eb47c2537ad73f9582df6b8cd9021e13feb9a4f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 19 Apr 2019 14:18:59 +0200 Subject: [PATCH] ; Remove instrumentation in tramp-tests --- test/lisp/net/tramp-tests.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index cadb282aecf..e2f806e8272 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -4085,15 +4085,11 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (defun tramp--test-shell-command-to-string-asynchronously (command) "Like `shell-command-to-string', but for asynchronous processes." (with-temp-buffer - (unwind-protect - (async-shell-command command (current-buffer)) - (with-timeout - ((if (getenv "EMACS_EMBA_CI") 30 10) (tramp--test-timeout-handler)) - (while (accept-process-output - (get-buffer-process (current-buffer)) nil nil t))) - (tramp--test-message - "# %s\n%s" - command (buffer-substring-no-properties (point-min) (point-max)))) + (async-shell-command command (current-buffer)) + (with-timeout + ((if (getenv "EMACS_EMBA_CI") 30 10) (tramp--test-timeout-handler)) + (while (accept-process-output + (get-buffer-process (current-buffer)) nil nil t))) (buffer-substring-no-properties (point-min) (point-max)))) (ert-deftest tramp-test32-shell-command () -- 2.39.5