mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix Eshell tests on MS-Windows

Browse source 
* lisp/eshell/esh-util.el (eshell-get-path): Don't add "." if it
is already there.

* test/lisp/eshell/esh-var-tests.el
(esh-var-test/path-var/preserve-across-hosts): Skip on MS-Windows.
(esh-var-test/path-var/set, esh-var-test/path-var/set-locally):
Quote the PATH value, for MS-Windows.
* test/lisp/eshell/esh-util-tests.el (esh-util-test/path/get): No
need to add ".": it is already done by 'eshell-get-path'.
* test/lisp/eshell/esh-proc-tests.el
(esh-proc-test/kill-pipeline): Accept empty string as valid
output.
(esh-proc-test/sigpipe-exits-process): Skip on MS-Windows: no
SIGPIPE.
(esh-proc-test/emacs-command): Quote correctly for MS-Windows.
* test/lisp/eshell/em-unix-tests.el
(em-unix-test/compile/interactive): Fix test on MS-Windows.
* test/lisp/eshell/em-script-tests.el (em-script-test/batch-file):
Skip on MS-Windows.
* test/lisp/eshell/eshell-tests-helpers.el
(eshell-command-result--equal): Compare strings (file names)
case-insensitively on MS-Windows.
This commit is contained in:
Eli Zaretskii 2024-06-09 10:56:39 +03:00
parent 8253228d55
commit f869f1ffc2
7 changed files with 37 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/eshell/esh-util.el
View file

@ -417,7 +417,8 @@ as the $PATH was actually specified."
(butlast (exec-path))))))
(when (and (not literal-p)
(not remote)
(eshell-under-windows-p))
(eshell-under-windows-p)
(not (member "." path)))
(push "." path))
(if (and remote (not literal-p))
(mapcar (lambda (x) (concat remote x)) path)