From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 24 Apr 2025 13:22:13 +0000 (+0300)
Subject: ; * test/lisp/arc-mode-tests.el ("7z"): Fix 7z entry.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ac5833a6f1c8ead743580be583c5338c31898a0;p=emacs.git

; * test/lisp/arc-mode-tests.el ("7z"): Fix 7z entry.

(cherry picked from commit e38401e71bddaa16b6de4783fb90e75955faba38)
---

diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
index f6c84db1ad8..51e8a5eba3f 100644
--- a/test/lisp/arc-mode-tests.el
+++ b/test/lisp/arc-mode-tests.el
@@ -133,7 +133,10 @@ member MEMBER.  Then the test finds ARCHIVE and ensures that function
 
 (define-arc-mode-test-on-type "ar" '("ar" "q") "a" 'ar)
 
-(define-arc-mode-test-on-type "7z" '("7za" "a") "7z" '7z)
+(define-arc-mode-test-on-type "7z" (list (if (eq system-type 'windows-nt)
+                                             "7z" "7za")
+                                         "a")
+                              "7z" '7z)
 
 (ert-deftest arc-mode-test-zip-ensure-ext ()
   "Regression test for bug#61326."