aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2019-04-19 14:18:59 +0200
committerMichael Albinus2019-04-19 14:18:59 +0200
commit0eb47c2537ad73f9582df6b8cd9021e13feb9a4f (patch)
treeb521edef285ef19ab3203d00905c48923ea3a4bb /test
parent5c5e309527e6b582e2c04b83e7af45f3144863ac (diff)
downloademacs-0eb47c2537ad73f9582df6b8cd9021e13feb9a4f.tar.gz
emacs-0eb47c2537ad73f9582df6b8cd9021e13feb9a4f.zip
; Remove instrumentation in tramp-tests
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el14
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 ()