1 ;;; package-test.el --- Tests for the Emacs package system
3 ;; Copyright (C) 2013 Free Software Foundation, Inc.
5 ;; Author: Daniel Hackney <dan@haxney.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;; You may want to run this from a separate Emacs instance from your
26 ;; main one, because a bug in the code below could mess with your
27 ;; installed packages.
29 ;; Run this in a clean Emacs session using:
31 ;; $ emacs -Q --batch -L . -l package-test.el -l ert -f ert-run-tests-batch-and-exit
39 (defvar package-test-user-dir nil
40 "Directory to use for installing packages during testing.")
42 (defvar package-test-file-dir (file-name-directory (or load-file-name
44 "Directory of the actual \"package-test.el\" file.")
46 (defvar simple-single-desc
47 (package-desc-create :name 'simple-single
49 :summary "A single-file package with no dependencies"
51 "Expected `package-desc' parsed from simple-single-1.3.el.")
53 (defvar simple-single-desc-1-4
54 (package-desc-create :name 'simple-single
56 :summary "A single-file package with no dependencies"
58 "Expected `package-desc' parsed from simple-single-1.4.el.")
60 (defvar simple-depend-desc
61 (package-desc-create :name 'simple-depend
63 :summary "A single-file package with a dependency."
65 :reqs '((simple-single (1 3))))
66 "Expected `package-desc' parsed from simple-depend-1.0.el.")
68 (defvar multi-file-desc
69 (package-desc-create :name 'multi-file
71 :summary "Example of a multi-file tar package"
73 "Expected `package-desc' from \"multi-file-0.2.3.tar\".")
76 (package-desc-create :name 'new-pkg
79 "Expected `package-desc' parsed from new-pkg-1.0.el.")
81 (defvar package-test-data-dir (expand-file-name "data/package" package-test-file-dir)
82 "Base directory of package test files.")
84 (defvar package-test-fake-contents-file
85 (expand-file-name "archive-contents" package-test-data-dir)
86 "Path to a static copy of \"archive-contents\".")
88 (cl-defmacro with-package-test ((&optional &key file
94 "Set up temporary locations and variables for testing."
96 `(let* ((package-test-user-dir (make-temp-file "pkg-test-user-dir-" t))
97 (package-user-dir package-test-user-dir)
98 (package-archives `(("gnu" . ,package-test-data-dir)))
99 (old-yes-no-defn (symbol-function 'yes-or-no-p))
100 (old-pwd default-directory)
104 '(package-update-news-on-upload t)
107 '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t))
108 (package-archive-upload-base package-test-archive-upload-base))
109 (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind `nil'
112 ,(if basedir `(cd ,basedir))
113 (setf (symbol-function 'yes-or-no-p) #'(lambda (&rest r) t))
114 (unless (file-directory-p package-user-dir)
115 (mkdir package-user-dir))
117 `((package-initialize)
118 (package-refresh-contents)
119 (mapc 'package-install ,install)))
122 `(insert-file-contents ,file))
125 (when (file-directory-p package-test-user-dir)
126 (delete-directory package-test-user-dir t))
128 (when (and (boundp 'package-test-archive-upload-base)
129 (file-directory-p package-test-archive-upload-base))
130 (delete-directory package-test-archive-upload-base t))
131 (setf (symbol-function 'yes-or-no-p) old-yes-no-defn)
134 (defmacro with-fake-help-buffer (&rest body)
135 "Execute BODY in a temp buffer which is treated as the \"*Help*\" buffer."
138 ;; Trick `help-buffer' into using the temp buffer.
139 (let ((help-xref-following t))
142 (defun package-test-strip-version (dir)
143 (replace-regexp-in-string "-pkg\\.el\\'" "" (package--description-file dir)))
145 (defun package-test-suffix-matches (base suffix-list)
146 "Return file names matching BASE concatenated with each item in SUFFIX-LIST"
148 '(lambda (item) (file-expand-wildcards (concat base item)))
151 (defvar tar-parse-info)
152 (declare-function tar-header-name "tar-mode" (cl-x) t) ; defstruct
154 (defun package-test-search-tar-file (filename)
155 "Search the current buffer's `tar-parse-info' variable for FILENAME.
157 Must called from within a `tar-mode' buffer."
158 (cl-dolist (header tar-parse-info)
159 (let ((tar-name (tar-header-name header)))
160 (when (string= tar-name filename)
163 (defun package-test-desc-version-string (desc)
164 "Return the package version as a string."
165 (package-version-join (package-desc-version desc)))
167 (ert-deftest package-test-desc-from-buffer ()
168 "Parse an elisp buffer to get a `package-desc' object."
169 (with-package-test (:basedir "data/package" :file "simple-single-1.3.el")
170 (should (equal (package-buffer-info) simple-single-desc)))
171 (with-package-test (:basedir "data/package" :file "simple-depend-1.0.el")
172 (should (equal (package-buffer-info) simple-depend-desc)))
173 (with-package-test (:basedir "data/package"
174 :file "multi-file-0.2.3.tar")
176 (should (equal (package-tar-file-info) multi-file-desc))))
178 (ert-deftest package-test-install-single ()
179 "Install a single file without using an archive."
180 (with-package-test (:basedir "data/package" :file "simple-single-1.3.el")
181 (should (package-install-from-buffer))
183 (should (package-installed-p 'simple-single))
184 (let* ((simple-pkg-dir (file-name-as-directory
187 package-test-user-dir)))
188 (autoloads-file (expand-file-name "simple-single-autoloads.el"
190 (should (file-directory-p simple-pkg-dir))
192 (insert-file-contents (expand-file-name "simple-single-pkg.el"
194 (should (string= (buffer-string)
195 (concat "(define-package \"simple-single\" \"1.3\" "
196 "\"A single-file package "
197 "with no dependencies\" 'nil)\n"))))
198 (should (file-exists-p autoloads-file))
199 (should-not (get-file-buffer autoloads-file)))))
201 (ert-deftest package-test-install-dependency ()
202 "Install a package which includes a dependency."
203 (with-package-test ()
205 (package-refresh-contents)
206 (package-install 'simple-depend)
207 (should (package-installed-p 'simple-single))
208 (should (package-installed-p 'simple-depend))))
210 (ert-deftest package-test-refresh-contents ()
211 "Parse an \"archive-contents\" file."
212 (with-package-test ()
214 (package-refresh-contents)
215 (should (eq 3 (length package-archive-contents)))))
217 (ert-deftest package-test-install-single-from-archive ()
218 "Install a single package from a package archive."
219 (with-package-test ()
221 (package-refresh-contents)
222 (package-install 'simple-single)))
224 (ert-deftest package-test-install-multifile ()
225 "Check properties of the installed multi-file package."
226 (with-package-test (:basedir "data/package" :install '(multi-file))
228 (expand-file-name "multi-file-autoloads.el"
231 package-test-user-dir)))
232 (installed-files '("dir" "multi-file.info" "multi-file-sub.elc"
233 "multi-file-autoloads.el" "multi-file.elc"))
234 (autoload-forms '("^(defvar multi-file-custom-var"
235 "^(custom-autoload 'multi-file-custom-var"
236 "^(autoload 'multi-file-mode"))
237 (pkg-dir (file-name-as-directory
240 package-test-user-dir))))
241 (package-refresh-contents)
242 (should (package-installed-p 'multi-file))
244 (insert-file-contents-literally autoload-file)
245 (dolist (fn installed-files)
246 (should (file-exists-p (expand-file-name fn pkg-dir))))
247 (dolist (re autoload-forms)
248 (goto-char (point-min))
249 (should (re-search-forward re nil t)))))))
251 (ert-deftest package-test-update-listing ()
252 "Ensure installed package status is updated."
253 (with-package-test ()
254 (let ((buf (package-list-packages)))
255 (search-forward-regexp "^ +simple-single")
256 (package-menu-mark-install)
257 (package-menu-execute)
258 (should (package-installed-p 'simple-single))
259 (switch-to-buffer "*Packages*")
260 (goto-char (point-min))
261 (should (re-search-forward "^\\s-+simple-single\\s-+1.3\\s-+installed" nil t))
262 (goto-char (point-min))
263 (should-not (re-search-forward "^\\s-+simple-single\\s-+1.3\\s-+\\(available\\|new\\)" nil t))
266 (ert-deftest package-test-update-archives ()
267 "Test updating package archives."
268 (with-package-test ()
269 (let ((buf (package-list-packages)))
270 (package-menu-refresh)
271 (search-forward-regexp "^ +simple-single")
272 (package-menu-mark-install)
273 (package-menu-execute)
274 (should (package-installed-p 'simple-single))
275 (let ((package-test-data-dir
276 (expand-file-name "data/package/newer-versions" package-test-file-dir)))
277 (setq package-archives `(("gnu" . ,package-test-data-dir)))
278 (package-menu-refresh)
280 ;; New version should be available and old version should be installed
281 (goto-char (point-min))
282 (should (re-search-forward "^\\s-+simple-single\\s-+1.4\\s-+new" nil t))
283 (should (re-search-forward "^\\s-+simple-single\\s-+1.3\\s-+installed" nil t))
285 (goto-char (point-min))
286 (should (re-search-forward "^\\s-+new-pkg\\s-+1.0\\s-+\\(available\\|new\\)" nil t))
288 (package-menu-mark-upgrades)
289 (package-menu-execute)
290 (package-menu-refresh)
291 (should (package-installed-p 'simple-single '(1 4)))))))
293 (ert-deftest package-test-describe-package ()
294 "Test displaying help for a package."
296 (require 'finder-inf)
298 (with-fake-help-buffer
299 (describe-package '5x5)
300 (goto-char (point-min))
301 (should (search-forward "5x5 is a built-in package." nil t))
302 (should (search-forward "Status: Built-in." nil t))
303 (should (search-forward "Summary: simple little puzzle game" nil t))
304 (should (search-forward "The aim of 5x5" nil t)))
307 (with-package-test ()
309 (package-refresh-contents)
310 (package-install 'simple-single)
311 (with-fake-help-buffer
312 (describe-package 'simple-single)
313 (goto-char (point-min))
314 (should (search-forward "simple-single is an installed package." nil t))
315 (should (search-forward
316 (format "Status: Installed in `%s/'."
317 (expand-file-name "simple-single-1.3" package-user-dir))
319 (should (search-forward "Version: 1.3" nil t))
320 (should (search-forward "Summary: A single-file package with no dependencies"
322 ;; No description, though. Because at this point we don't know
323 ;; what archive the package originated from, and we don't have
324 ;; its readme file saved.
327 (ert-deftest package-test-describe-not-installed-package ()
328 "Test displaying of the readme for not-installed package."
330 (with-package-test ()
332 (package-refresh-contents)
333 (with-fake-help-buffer
334 (describe-package 'simple-single)
335 (goto-char (point-min))
336 (should (search-forward "This package provides a minor mode to frobnicate"
339 (ert-deftest package-test-describe-non-installed-package ()
340 "Test displaying of the readme for non-installed package."
342 (with-package-test ()
344 (package-refresh-contents)
345 (with-fake-help-buffer
346 (describe-package 'simple-single)
347 (goto-char (point-min))
348 (should (search-forward "This package provides a minor mode to frobnicate"
351 (ert-deftest package-test-describe-non-installed-multi-file-package ()
352 "Test displaying of the readme for non-installed multi-file package."
354 (with-package-test ()
356 (package-refresh-contents)
357 (with-fake-help-buffer
358 (describe-package 'multi-file)
359 (goto-char (point-min))
360 (should (search-forward "This is a bare-bones readme file for the multi-file"
363 (provide 'package-test)
365 ;;; package-test.el ends here