diff options
author | Glenn Morris <[email protected]> | 2014-05-21 19:33:07 -0700 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2014-05-21 19:33:07 -0700 |
commit | ff965efb03f29b5003c8ace7cfe4510f643b8706 (patch) | |
tree | 5d8b7fdcfbb8244968453733043e9e4cc90afa91 /test | |
parent | f23423f322a99144efb04fee994408f2570fb80f (diff) |
Tweak previous bytecomp-tests.el change
* test/automated/bytecomp-tests.el (test-byte-comp-compile-and-load):
Fix handling of temporary elc files.
Diffstat (limited to 'test')
-rw-r--r-- | test/ChangeLog | 2 | ||||
-rw-r--r-- | test/automated/bytecomp-tests.el | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index d42c0174a2..d56e62283b 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,7 +1,7 @@ 2014-05-22 Glenn Morris <[email protected]> * automated/bytecomp-tests.el (test-byte-comp-compile-and-load): - Avoid leaving empty .elc tempfiles behind. + Fix handling of temporary elc files. * automated/fns-tests.el (fns-tests-nreverse): Update for changed string behavior. diff --git a/test/automated/bytecomp-tests.el b/test/automated/bytecomp-tests.el index c109a12c46..1d96f1cdfc 100644 --- a/test/automated/bytecomp-tests.el +++ b/test/automated/bytecomp-tests.el @@ -312,13 +312,14 @@ Subtests signal errors if something goes wrong." (progn (setf elfile (make-temp-file "test-bytecomp" nil ".el")) (when compile - (setf elcfile (concat elfile "c"))) + (setf elcfile (make-temp-file "test-bytecomp" nil ".elc"))) (with-temp-buffer (dolist (form forms) (print form (current-buffer))) (write-region (point-min) (point-max) elfile)) (if compile - (let ((byte-compile-dest-file elcfile)) + (let ((byte-compile-dest-file-function + (lambda (e) elcfile))) (byte-compile-file elfile t)) (load elfile))) (when elfile (delete-file elfile)) |