diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-08-14 17:23:18 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-08-14 17:23:18 -0400 |
| commit | 4fe9a9efcfdd39c5751d4506e94afaf28fcbcaef (patch) | |
| tree | 939d688bccb91166dac29d57cfa88d6e27c8096d /test/lisp/emacs-lisp | |
| parent | 5ba4c7d16b800864fa14b8a981e33f6aa6fa94d6 (diff) | |
| download | emacs-4fe9a9efcfdd39c5751d4506e94afaf28fcbcaef.tar.gz | |
Clean up temp files after some tests
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-tests--with-temp-file): Also delete .elc file if present.
* test/lisp/progmodes/etags-tests.el
(etags-buffer-local-tags-table-list): Delete temp file at end.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 8ef2ce70251..ab70b3009e4 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -512,7 +512,9 @@ bytecompiled code, and their results compared.") `(let ((,file-name-var (make-temp-file "emacs"))) (unwind-protect (progn ,@body) - (delete-file ,file-name-var)))) + (delete-file ,file-name-var) + (let ((elc (concat ,file-name-var ".elc"))) + (if (file-exists-p elc) (delete-file elc)))))) (ert-deftest bytecomp-tests--unescaped-char-literals () "Check that byte compiling warns about unescaped character |