From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 1 Apr 2023 06:24:38 +0000 (+0300)
Subject: Fix new Eshell tests on MS-Windows
X-Git-Tag: emacs-29.0.90~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21a4ee209c19031e29e98e4308aa9d67890a0515;p=emacs.git

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.
---

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."
       (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"