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.

diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el
index 0f0ed029c3b85daf4aa433955cf914daca51f860..3b12f57e5cee2491d805b847476d5a0556d659f1 100644 (file)
--- 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 ()