diff options
| author | Eli Zaretskii | 2023-04-01 09:24:38 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-04-01 09:24:38 +0300 |
| commit | 21a4ee209c19031e29e98e4308aa9d67890a0515 (patch) | |
| tree | 0ea2e98f456ffaa24df106bcb593e9a61363f827 /test | |
| parent | e2ebf3995d099fdd077ce0e672778850a7ad198e (diff) | |
| download | emacs-21a4ee209c19031e29e98e4308aa9d67890a0515.tar.gz emacs-21a4ee209c19031e29e98e4308aa9d67890a0515.zip | |
Fix new Eshell tests on MS-Windows
* test/lisp/eshell/eshell-tests.el (eshell-test/eshell-command/background)
(eshell-test/eshell-command/background-pipeline): Allow for ".exe"
in the program's name. This fixes these tests on MS-Windows.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/eshell/eshell-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/eshell/eshell-tests.el b/test/lisp/eshell/eshell-tests.el index b57abe3226c..8c049cb342d 100644 --- a/test/lisp/eshell/eshell-tests.el +++ b/test/lisp/eshell/eshell-tests.el | |||
| @@ -137,7 +137,7 @@ This test uses a pipeline for the command." | |||
| 137 | (eshell-command "*echo hi &") | 137 | (eshell-command "*echo hi &") |
| 138 | (with-current-buffer "*Eshell Async Command Output*" | 138 | (with-current-buffer "*Eshell Async Command Output*" |
| 139 | (goto-char (point-min)) | 139 | (goto-char (point-min)) |
| 140 | (should (looking-at "\\[echo\\(<[0-9]+>\\)?\\]")))))) | 140 | (should (looking-at "\\[echo\\(\\.exe\\)?\\(<[0-9]+>\\)?\\]")))))) |
| 141 | 141 | ||
| 142 | (ert-deftest eshell-test/eshell-command/background-pipeline () | 142 | (ert-deftest eshell-test/eshell-command/background-pipeline () |
| 143 | "Test that `eshell-command' works for background commands. | 143 | "Test that `eshell-command' works for background commands. |
| @@ -150,7 +150,7 @@ This test uses a pipeline for the command." | |||
| 150 | (eshell-command "*echo hi | *cat &") | 150 | (eshell-command "*echo hi | *cat &") |
| 151 | (with-current-buffer "*Eshell Async Command Output*" | 151 | (with-current-buffer "*Eshell Async Command Output*" |
| 152 | (goto-char (point-min)) | 152 | (goto-char (point-min)) |
| 153 | (should (looking-at "\\[cat\\(<[0-9]+>\\)?\\]")))))) | 153 | (should (looking-at "\\[cat\\(\\.exe\\)\\(<[0-9]+>\\)?\\]")))))) |
| 154 | 154 | ||
| 155 | (ert-deftest eshell-test/command-running-p () | 155 | (ert-deftest eshell-test/command-running-p () |
| 156 | "Modeline should show no command running" | 156 | "Modeline should show no command running" |