diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-04-26 17:28:38 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-04-26 17:28:38 +0200 |
| commit | 9d34fd8b33c55768190d41239931120e3fc9717f (patch) | |
| tree | fc745400336ddd3f87882d16a84db2ba8e0581f3 /test/src/comp-tests.el | |
| parent | 244e97d5f83af9ae0c4357f6b882e28158df9b19 (diff) | |
| download | emacs-9d34fd8b33c55768190d41239931120e3fc9717f.tar.gz emacs-9d34fd8b33c55768190d41239931120e3fc9717f.tar.bz2 emacs-9d34fd8b33c55768190d41239931120e3fc9717f.zip | |
* Use `expand-file-name' in place of `concat' in comp-tests.el
* test/src/comp-tests.el (comp-test-src,
comp-test-dyn-src) (comp-tests-bootstrap, comp-tests-pure,
comp-test-src): Use `expand-file-name' in place of `concat'.
Diffstat (limited to 'test/src/comp-tests.el')
| -rw-r--r-- | test/src/comp-tests.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 28adb64b8c1..8ec32fb041a 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -34,10 +34,10 @@ "comp-tests-resources/")) (defconst comp-test-src - (concat comp-test-directory "comp-test-funcs.el")) + (expand-file-name "comp-test-funcs.el" comp-test-directory)) (defconst comp-test-dyn-src - (concat comp-test-directory "comp-test-funcs-dyn.el")) + (expand-file-name"comp-test-funcs-dyn.el" comp-test-directory)) (when (featurep 'nativecomp) (require 'comp) @@ -60,8 +60,8 @@ Check that the resulting binaries do not differ." :tags '(:expensive-test :nativecomp) (let* ((byte-native-for-bootstrap t) ; FIXME HACK - (comp-src (concat comp-test-directory - "../../lisp/emacs-lisp/comp.el")) + (comp-src (expand-file-name "../../../lisp/emacs-lisp/comp.el" + comp-test-directory)) (comp1-src (make-temp-file "stage1-" nil ".el")) (comp2-src (make-temp-file "stage2-" nil ".el")) ;; Can't use debug symbols. @@ -497,7 +497,8 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (comp-deftest 45603-1 () "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" - (load (native-compile (concat comp-test-directory "comp-test-45603.el"))) + (load (native-compile (expand-file-name "comp-test-45603.el" + comp-test-directory))) (should (fboundp #'comp-test-45603--file-local-name))) (comp-deftest 46670-1 () @@ -1408,7 +1409,8 @@ Return a list of results." (let ((comp-speed 3) (comp-post-pass-hooks '((comp-final comp-tests-pure-checker-1 comp-tests-pure-checker-2)))) - (load (native-compile (concat comp-test-directory "comp-test-pure.el"))) + (load (native-compile (expand-file-name "comp-test-pure.el" + comp-test-directory))) (should (subr-native-elisp-p (symbol-function #'comp-tests-pure-caller-f))) (should (= (comp-tests-pure-caller-f) 4)) |