* test/automated/package-test.el (with-package-test): Kill Packages buffer

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 2fbcfd061408df518d6a25961f2c399cb96cbf89..4385ee0bd48f4823fe2f53feb4fc4ca506294602 100644 (file)
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -125,6 +125,9 @@
                 '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t))
                   (package-archive-upload-base package-test-archive-upload-base))
               (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind `nil'
+     (let ((buf (get-buffer "*Packages*")))
+       (when (buffer-live-p buf)
+         (kill-buffer buf)))
      (unwind-protect
          (progn
            ,(if basedir `(cd ,basedir))