mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix previous arc-mode-test commit

Browse source 
* test/lisp/arc-mode-tests.el (define-arc-mode-test-on-type): Doc fix.
("7z"): Use archiver executable "7z" on all ports.
This commit is contained in:
Jens Schmidt 2025-04-24 23:32:45 +02:00 • committed by Eli Zaretskii
parent af22c9292d
commit ec8075219d
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/arc-mode-tests.el
View file

@ -79,7 +79,7 @@ Return a cons (ARC . EXIT-STATUS)."
(cons arc (funcall (archive--act-files command files) arc)))
(defmacro define-arc-mode-test-on-type (name command extension type)
"Define and execute a test that tests function `archive-find-type'.
"Define a test that tests function `archive-find-type'.
Name the test based on NAME. The generated test first calls
(call-process (car COMMAND) nil nil nil
@ -133,10 +133,9 @@ 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" (list (if (eq system-type 'windows-nt)
"7z" "7za")
"a")
"7z" '7z)
;; prefer executable "7z" to "7za", since the former seems be supported
;; on a broader range of ports
(define-arc-mode-test-on-type "7z" '("7z" "a") "7z" '7z)
(ert-deftest arc-mode-test-zip-ensure-ext ()
"Regression test for bug#61326."