* python-tests.el (python-tests-with-temp-file): Clean up after ourself

diff --git a/test/ChangeLog b/test/ChangeLog
index 7238e625c883bf6baf2a236492d6ee9ab2bf730b..d3bd3d673cf8b0408f7c566083384495af28769c 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-27  Glenn Morris  <rgm@gnu.org>
 
+       * automated/python-tests.el (python-tests-with-temp-file):
+       Clean up after ourself.
+
        * automated/undo-tests.el (undo-test3): Remove test that seems to
        do nothing that the previous one doesn't, except leave a tempfile.
 

diff --git a/test/automated/python-tests.el b/test/automated/python-tests.el
index 8462a863b84d977de8b0c01b33830745b68cb899..40505cc79536d160aa35ef5affe7e7fe567a4597 100644 (file)
--- a/test/automated/python-tests.el
+++ b/test/automated/python-tests.el
@@ -39,7 +39,8 @@ always located at the beginning of buffer."
 BODY is code to be executed within the temp buffer.  Point is
 always located at the beginning of buffer."
   (declare (indent 1) (debug t))
-  `(let* ((temp-file (concat (make-temp-file "python-tests") ".py"))
+  ;; temp-file never actually used for anything?
+  `(let* ((temp-file (make-temp-file "python-tests" nil ".py"))
           (buffer (find-file-noselect temp-file)))
      (unwind-protect
          (with-current-buffer buffer
@@ -47,7 +48,8 @@ always located at the beginning of buffer."
            (insert ,contents)
            (goto-char (point-min))
            ,@body)
-       (and buffer (kill-buffer buffer)))))
+       (and buffer (kill-buffer buffer))
+       (delete-file temp-file))))
 
 (defun python-tests-look-at (string &optional num restore-point)
   "Move point at beginning of STRING in the current buffer.