diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-10 05:19:48 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-10 05:19:56 +0100 |
| commit | 057fd1ee9bf6dd135039faaed22bfc5edcd16c72 (patch) | |
| tree | 89c0e64e9c4f4f534efd90904bf15624f70acad1 | |
| parent | 18ebe6c4da30857d864e54ecd1944c102593624d (diff) | |
| download | emacs-057fd1ee9bf6dd135039faaed22bfc5edcd16c72.tar.gz emacs-057fd1ee9bf6dd135039faaed22bfc5edcd16c72.tar.bz2 emacs-057fd1ee9bf6dd135039faaed22bfc5edcd16c72.zip | |
Fix package-tests failure on native-comp
* test/lisp/emacs-lisp/package-tests.el
(package-test-macro-compilation-gz): Fix test failure on native-comp.
| -rw-r--r-- | test/lisp/emacs-lisp/package-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el index 0f0ed029c3b..3b12f57e5ce 100644 --- a/test/lisp/emacs-lisp/package-tests.el +++ b/test/lisp/emacs-lisp/package-tests.el @@ -367,7 +367,7 @@ but with a different end of line convention (bug#48137)." (let ((load-path load-path)) (add-to-list 'load-path (directory-file-name dir)) (byte-recompile-directory dir 0 t) - (mapc (lambda (f) (rename-file f (concat f ".gz"))) + (mapc (lambda (f) (call-process "gzip" nil nil nil f)) (directory-files-recursively dir "\\`[^\\.].*\\.el\\'")) (require 'macro-builtin) (should (member (expand-file-name "macro-builtin-aux.elc" dir) @@ -382,7 +382,7 @@ but with a different end of line convention (bug#48137)." (should (equal (macro-builtin-10-and-90) '(10 90)))) (mapc #'delete-file (directory-files-recursively dir "\\`[^\\.].*\\.elc\\'")) - (mapc (lambda (f) (rename-file f (file-name-sans-extension f))) + (mapc (lambda (f) (call-process "gunzip" nil nil nil f)) (directory-files-recursively dir "\\`[^\\.].*\\.el.gz\\'")))))) (ert-deftest package-test-install-two-dependencies () |