master e6b0fa4408: ; Instrument Tramp tests

[Michael Albinus]

branch: master
commit e6b0fa4408c8e7b8bc6db70aeedbcbd235bdd7c3
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    ; 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.
---
 test/infra/test-jobs.yml     |  2 +-
 test/lisp/net/tramp-tests.el | 10 +++++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/test/infra/test-jobs.yml b/test/infra/test-jobs.yml
index 51707c181b..c18a3ca0d9 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 784ef93f5b..b064e3f5d0 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))))))