[Emacs-diffs] trunk r117137: Tweak previous bytecomp-tests.el change

[Glenn Morris]

------------------------------------------------------------
revno: 117137
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2014-05-21 19:33:07 -0700
message:
  Tweak previous bytecomp-tests.el change
  
  * test/automated/bytecomp-tests.el (test-byte-comp-compile-and-load):
  Fix handling of temporary elc files.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/bytecomp-tests.el 
bytecomptestsuite.el-20091113204419-o5vbwnq5f7feedwu-8799

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-05-22 01:16:37 +0000
+++ b/test/ChangeLog    2014-05-22 02:33:07 +0000
@@ -1,7 +1,7 @@
 2014-05-22  Glenn Morris  <address@hidden>
 
        * 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.

=== modified file 'test/automated/bytecomp-tests.el'
--- a/test/automated/bytecomp-tests.el  2014-05-22 01:16:37 +0000
+++ b/test/automated/bytecomp-tests.el  2014-05-22 02:33:07 +0000
@@ -312,13 +312,14 @@
          (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))