From df86ba7d4da45d3fdcd3a01969e58203f2762844 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 26 Jun 2013 22:46:51 -0700 Subject: [PATCH] * python-tests.el (python-tests-with-temp-file): Clean up after ourself --- test/ChangeLog | 3 +++ test/automated/python-tests.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index 7238e625c88..d3bd3d673cf 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,8 @@ 2013-06-27 Glenn Morris + * 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 8462a863b84..40505cc7953 100644 --- 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. -- 2.39.2