From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 23 Oct 2020 10:56:39 +0000 (+0200)
Subject: Clean up temporary files after package tests
X-Git-Tag: emacs-28.0.90~5470
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22e5239c172ccc603b1f0def87aeabc3ccdb61c6;p=emacs.git

Clean up temporary files after package tests

* test/lisp/emacs-lisp/package-tests.el (with-package-test): Remove
temporary files after test.  (Bug#43359)
---

diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el
index 155a8e6fce9..23267545f83 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -151,6 +151,15 @@
                     `(insert-file-contents ,file))
                ,@body)))
 
+       (when ,upload-base
+         (dolist (f '("archive-contents"
+                      "simple-single-1.3.el"
+                      "simple-single-1.4.el"
+                      "simple-single-readme.txt"))
+           (ignore-errors
+             (delete-file
+              (expand-file-name f package-test-archive-upload-base))))
+         (delete-directory package-test-archive-upload-base))
        (when (file-directory-p package-test-user-dir)
          (delete-directory package-test-user-dir t))