diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-07-27 13:46:53 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-07-27 13:46:53 +0200 |
| commit | e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3 (patch) | |
| tree | 3ccaf973f1fc7248d9371dead1494b1128ede628 /test/lisp/net | |
| parent | db4dd28c21f95361de620c6e543d23da5d982fd5 (diff) | |
| download | emacs-e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3.tar.gz emacs-e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3.tar.bz2 emacs-e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3.zip | |
; Instrument Tramp tests
; * test/infra/test-jobs.yml (test-lisp-net-inotify): Run expensive.
; * test/lisp/net/tramp-tests.el (tramp-test32-shell-command): Instrument.
Diffstat (limited to 'test/lisp/net')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 784ef93f5b7..b064e3f5d0e 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -5400,13 +5400,21 @@ INPUT, if non-nil, is a string sent to the process." (let ((stderr (generate-new-buffer "*stderr*"))) (unwind-protect (with-temp-buffer + (when (getenv "EMACS_EMBA_CI") + (tramp--test-message "Hallo1")) (funcall this-shell-command "echo foo >&2; echo bar" (current-buffer) stderr) + (when (getenv "EMACS_EMBA_CI") + (tramp--test-message "Hallo2")) (should (string-equal "bar\n" (buffer-string))) + (when (getenv "EMACS_EMBA_CI") + (tramp--test-message "Hallo3")) ;; Check stderr. (should - (string-equal "foo\n" (tramp-get-buffer-string stderr)))) + (string-equal "foo\n" (tramp-get-buffer-string stderr))) + (when (getenv "EMACS_EMBA_CI") + (tramp--test-message "Hallo4"))) ;; Cleanup. (ignore-errors (kill-buffer stderr)))))) |