emacs-29 356e79e47fc: Fix tramp-test.el (don't merge with master)

[Michael Albinus]

branch: emacs-29
commit 356e79e47fcbd9dfe650dbb12d1c5dd5f07a2772
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Fix tramp-test.el (don't merge with master)
    
    * test/lisp/net/tramp-tests.el (tramp--test-check-files):
    Don't err out when "printenv" doesn't exist on remote side.
---
 test/lisp/net/tramp-tests.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 24f17c2cf74..0648fe9e80f 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -7384,13 +7384,13 @@ This requires restrictions of file name syntax."
                  ;; of process output.  So we unset it temporarily.
                  (setenv "PS1")
                  (with-temp-buffer
-                   (should (zerop (process-file "printenv" nil t nil)))
-                   (goto-char (point-min))
-                   (should
-                    (re-search-forward
-                     (tramp-compat-rx
-                      bol (literal envvar)
-                      "=" (literal (getenv envvar)) eol))))))))
+                   (when (zerop (process-file "printenv" nil t nil))
+                     (goto-char (point-min))
+                     (should
+                      (re-search-forward
+                       (tramp-compat-rx
+                        bol (literal envvar)
+                        "=" (literal (getenv envvar)) eol)))))))))
 
        ;; Cleanup.
        (ignore-errors (kill-buffer buffer))