diff options
| author | Michael Albinus | 2019-04-19 14:18:59 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-04-19 14:18:59 +0200 |
| commit | 0eb47c2537ad73f9582df6b8cd9021e13feb9a4f (patch) | |
| tree | b521edef285ef19ab3203d00905c48923ea3a4bb /test | |
| parent | 5c5e309527e6b582e2c04b83e7af45f3144863ac (diff) | |
| download | emacs-0eb47c2537ad73f9582df6b8cd9021e13feb9a4f.tar.gz emacs-0eb47c2537ad73f9582df6b8cd9021e13feb9a4f.zip | |
; Remove instrumentation in tramp-tests
Diffstat (limited to 'test')
| -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'." | |||
| 4085 | (defun tramp--test-shell-command-to-string-asynchronously (command) | 4085 | (defun tramp--test-shell-command-to-string-asynchronously (command) |
| 4086 | "Like `shell-command-to-string', but for asynchronous processes." | 4086 | "Like `shell-command-to-string', but for asynchronous processes." |
| 4087 | (with-temp-buffer | 4087 | (with-temp-buffer |
| 4088 | (unwind-protect | 4088 | (async-shell-command command (current-buffer)) |
| 4089 | (async-shell-command command (current-buffer)) | 4089 | (with-timeout |
| 4090 | (with-timeout | 4090 | ((if (getenv "EMACS_EMBA_CI") 30 10) (tramp--test-timeout-handler)) |
| 4091 | ((if (getenv "EMACS_EMBA_CI") 30 10) (tramp--test-timeout-handler)) | 4091 | (while (accept-process-output |
| 4092 | (while (accept-process-output | 4092 | (get-buffer-process (current-buffer)) nil nil t))) |
| 4093 | (get-buffer-process (current-buffer)) nil nil t))) | ||
| 4094 | (tramp--test-message | ||
| 4095 | "# %s\n%s" | ||
| 4096 | command (buffer-substring-no-properties (point-min) (point-max)))) | ||
| 4097 | (buffer-substring-no-properties (point-min) (point-max)))) | 4093 | (buffer-substring-no-properties (point-min) (point-max)))) |
| 4098 | 4094 | ||
| 4099 | (ert-deftest tramp-test32-shell-command () | 4095 | (ert-deftest tramp-test32-shell-command () |