master 057fd1e: Fix package-tests failure on native-comp

[Lars Ingebrigtsen]

branch: master
commit 057fd1ee9bf6dd135039faaed22bfc5edcd16c72
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 test/lisp/emacs-lisp/package-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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