diff options
| author | Artur Malabarba | 2015-04-12 16:10:22 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-04-12 16:16:06 +0100 |
| commit | fe3b5b3f4599fb607ef03a99080b189464531da7 (patch) | |
| tree | fc43cba9e8c446a13e3abd82437f93131b791883 | |
| parent | e99d8cb25db2d1306be011ecccd85845e41ccec8 (diff) | |
| download | emacs-fe3b5b3f4599fb607ef03a99080b189464531da7.tar.gz emacs-fe3b5b3f4599fb607ef03a99080b189464531da7.zip | |
* test/automated/package-test.el (with-package-test): Kill Packages buffer
| -rw-r--r-- | test/automated/package-test.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/automated/package-test.el b/test/automated/package-test.el index 2fbcfd06140..4385ee0bd48 100644 --- a/test/automated/package-test.el +++ b/test/automated/package-test.el | |||
| @@ -125,6 +125,9 @@ | |||
| 125 | '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t)) | 125 | '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t)) |
| 126 | (package-archive-upload-base package-test-archive-upload-base)) | 126 | (package-archive-upload-base package-test-archive-upload-base)) |
| 127 | (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind `nil' | 127 | (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind `nil' |
| 128 | (let ((buf (get-buffer "*Packages*"))) | ||
| 129 | (when (buffer-live-p buf) | ||
| 130 | (kill-buffer buf))) | ||
| 128 | (unwind-protect | 131 | (unwind-protect |
| 129 | (progn | 132 | (progn |
| 130 | ,(if basedir `(cd ,basedir)) | 133 | ,(if basedir `(cd ,basedir)) |