mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

better style into comp-tests-bootstrap

Browse Source
This commit is contained in:
Andrea Corallo 2019-11-23 17:27:44 +01:00
parent a421c27723
commit c039822082
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/src/comp-tests.el
View File

@ -45,16 +45,12 @@
Check that the resulting binaries do not differ." Check that the resulting binaries do not differ."
(let* ((comp-src (concat comp-test-directory (let* ((comp-src (concat comp-test-directory
"../../lisp/emacs-lisp/comp.el")) "../../lisp/emacs-lisp/comp.el"))
(comp1-src (concat temporary-file-directory (comp1-src (make-temp-file "stage1-" nil ".el"))
(make-temp-name "stage1-") (comp2-src (make-temp-file "stage2-" nil ".el"))
".el"))
(comp2-src (concat temporary-file-directory
(make-temp-name "stage2-")
".el"))
(comp1 (concat comp1-src "n")) (comp1 (concat comp1-src "n"))
(comp2 (concat comp2-src "n"))) (comp2 (concat comp2-src "n")))
(copy-file comp-src comp1-src) (copy-file comp-src comp1-src t)
(copy-file comp-src comp2-src) (copy-file comp-src comp2-src t)
(load (concat comp-src "c") nil nil t t) (load (concat comp-src "c") nil nil t t)
(should (null (subr-native-elisp-p (symbol-function #'native-compile)))) (should (null (subr-native-elisp-p (symbol-function #'native-compile))))
(message "Compiling stage1...") (message "Compiling stage1...")