From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 28 Sep 2023 07:56:13 +0000 (+0200)
Subject: Fix tramp-test.el (don't merge with master)
X-Git-Tag: emacs-29.1.90~47
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=356e79e47fc;p=emacs.git

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.
---

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))