From: Michael Albinus Date: Wed, 27 Jul 2022 11:46:53 +0000 (+0200) Subject: ; Instrument Tramp tests X-Git-Tag: emacs-29.0.90~1447^2~726 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3;p=emacs.git ; 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. --- diff --git a/test/infra/test-jobs.yml b/test/infra/test-jobs.yml index 51707c181b1..c18a3ca0d9c 100644 --- a/test/infra/test-jobs.yml +++ b/test/infra/test-jobs.yml @@ -338,7 +338,7 @@ test-lisp-net-inotify: - test/lisp/net/*resources/** variables: target: emacs-inotify - make_params: "-k -C test check-lisp-net" + make_params: "-k -C test check-lisp-net SELECTOR='(not (tag :unstable))'" test-lisp-nxml-inotify: stage: normal 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))))))