diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2023-09-28 09:56:13 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2023-09-28 09:56:13 +0200 |
commit | 356e79e47fcbd9dfe650dbb12d1c5dd5f07a2772 (patch) | |
tree | e739dd4183c8d472154738d5434e380b330941b7 | |
parent | 34550ea8ce4b5e306a537abd9457bba5c72fca94 (diff) | |
download | emacs-356e79e47fcbd9dfe650dbb12d1c5dd5f07a2772.tar.gz |
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.
-rw-r--r-- | test/lisp/net/tramp-tests.el | 14 |
1 files 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)) |