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

2025-04-24 16:22:13 +03:00
parent d74cbf0519
commit e38401e71b
1 changed files with 4 additions and 1 deletions
--- 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."