diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-04-19 14:18:59 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-04-19 14:18:59 +0200 |
| commit | 0eb47c2537ad73f9582df6b8cd9021e13feb9a4f (patch) | |
| tree | b521edef285ef19ab3203d00905c48923ea3a4bb /test/lisp | |
| parent | 5c5e309527e6b582e2c04b83e7af45f3144863ac (diff) | |
| download | emacs-0eb47c2537ad73f9582df6b8cd9021e13feb9a4f.tar.gz | |
; Remove instrumentation in tramp-tests
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 14 |
1 files 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 () |