]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix new Eshell tests on MS-Windows
authorEli Zaretskii <eliz@gnu.org>
Sat, 1 Apr 2023 06:24:38 +0000 (09:24 +0300)
committerEli Zaretskii <eliz@gnu.org>
Sat, 1 Apr 2023 06:24:38 +0000 (09:24 +0300)
* 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.

test/lisp/eshell/eshell-tests.el

index b57abe3226c5db4ee562943f3ee4dcfa14748d64..8c049cb342dbf77e6827e5f051414d44d331e2bd 100644 (file)
@@ -137,7 +137,7 @@ This test uses a pipeline for the command."
       (eshell-command "*echo hi &")
       (with-current-buffer "*Eshell Async Command Output*"
         (goto-char (point-min))
-        (should (looking-at "\\[echo\\(<[0-9]+>\\)?\\]"))))))
+        (should (looking-at "\\[echo\\(\\.exe\\)?\\(<[0-9]+>\\)?\\]"))))))
 
 (ert-deftest eshell-test/eshell-command/background-pipeline ()
   "Test that `eshell-command' works for background commands.
@@ -150,7 +150,7 @@ This test uses a pipeline for the command."
       (eshell-command "*echo hi | *cat &")
       (with-current-buffer "*Eshell Async Command Output*"
         (goto-char (point-min))
-        (should (looking-at "\\[cat\\(<[0-9]+>\\)?\\]"))))))
+        (should (looking-at "\\[cat\\(\\.exe\\)\\(<[0-9]+>\\)?\\]"))))))
 
 (ert-deftest eshell-test/command-running-p ()
   "Modeline should show no command running"