From 356e79e47fcbd9dfe650dbb12d1c5dd5f07a2772 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 28 Sep 2023 09:56:13 +0200 Subject: [PATCH] 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)) -- 2.39.2