diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-11-23 17:27:44 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:09 +0100 |
| commit | c039822082983d6618b6e06c73a31cf6b63467cc (patch) | |
| tree | 243a1d58392b41794d313e62459833bd47db99db | |
| parent | a421c277237ab6b5923473f6dbb9c196b16bc833 (diff) | |
| download | emacs-c039822082983d6618b6e06c73a31cf6b63467cc.tar.gz emacs-c039822082983d6618b6e06c73a31cf6b63467cc.tar.bz2 emacs-c039822082983d6618b6e06c73a31cf6b63467cc.zip | |
better style into comp-tests-bootstrap
| -rw-r--r-- | test/src/comp-tests.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index a0e6e23cefd..361f116edae 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -45,16 +45,12 @@ Check that the resulting binaries do not differ." (let* ((comp-src (concat comp-test-directory "../../lisp/emacs-lisp/comp.el")) - (comp1-src (concat temporary-file-directory - (make-temp-name "stage1-") - ".el")) - (comp2-src (concat temporary-file-directory - (make-temp-name "stage2-") - ".el")) + (comp1-src (make-temp-file "stage1-" nil ".el")) + (comp2-src (make-temp-file "stage2-" nil ".el")) (comp1 (concat comp1-src "n")) (comp2 (concat comp2-src "n"))) - (copy-file comp-src comp1-src) - (copy-file comp-src comp2-src) + (copy-file comp-src comp1-src t) + (copy-file comp-src comp2-src t) (load (concat comp-src "c") nil nil t t) (should (null (subr-native-elisp-p (symbol-function #'native-compile)))) (message "Compiling stage1...") |