martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix package-tests failure on native-comp

Browse Source 
* test/lisp/emacs-lisp/package-tests.el
(package-test-macro-compilation-gz): Fix test failure on native-comp.
This commit is contained in:
Lars Ingebrigtsen
2021-11-10 05:19:48 +01:00
parent 18ebe6c4da
commit 057fd1ee9b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/lisp/emacs-lisp/package-tests.el
View File

@@ -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 ()