; * 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 f6c84db1ad8a7a652c4548f9436c718cbf7d2173..51e8a5eba3fc8fef80164214c412fa08ac790837 100644 (file)
--- 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."