procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix tramp-test.el (don't merge with master)

Browse source 
* test/lisp/net/tramp-tests.el (tramp--test-check-files):
Don't err out when "printenv" doesn't exist on remote side.
This commit is contained in:
Michael Albinus 2023-09-28 09:56:13 +02:00
parent 34550ea8ce
commit 356e79e47f
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/lisp/net/tramp-tests.el
View file

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