mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-15 17:00:26 +00:00
Re-add and fix prioritized archives test.
* automated/package-test.el (package-test-install-prioritized): Re-add the test case and add priority to the correct repository this time around.
This commit is contained in:
parent
3e359626e6
commit
2f908e0cac
@ -1,13 +1,14 @@
|
||||
2015-01-20 Jorgen Schaefer <contact@jorgenschaefer.de>
|
||||
|
||||
* automated/package-test.el (package-test-install-prioritized):
|
||||
Re-add the test case and add priority to the correct repository
|
||||
this time around.
|
||||
|
||||
2015-01-21 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* automated/cl-generic-tests.el (setf cl--generic-2): Make sure
|
||||
the setf can be used already in the body of the method.
|
||||
|
||||
2015-01-20 Jorgen Schaefer <contact@jorgenschaefer.de>
|
||||
|
||||
* automated/package-test.el (package-test-install-prioritized):
|
||||
Remove test due to unreproducable failures.
|
||||
|
||||
2015-01-20 Michal Nazarewicz <mina86@mina86.com>
|
||||
|
||||
* automated/descr-text-test.el: New file with tests for
|
||||
|
@ -230,6 +230,23 @@ Must called from within a `tar-mode' buffer."
|
||||
(package-refresh-contents)
|
||||
(package-install 'simple-single)))
|
||||
|
||||
(ert-deftest package-test-install-prioritized ()
|
||||
"Install a lower version from a higher-prioritized archive."
|
||||
(with-package-test ()
|
||||
(let* ((newer-version (expand-file-name "data/package/newer-versions"
|
||||
package-test-file-dir))
|
||||
(package-archives `(("older" . ,package-test-data-dir)
|
||||
("newer" . ,newer-version)))
|
||||
(package-archive-priorities '(("older" . 100))))
|
||||
|
||||
(package-initialize)
|
||||
(package-refresh-contents)
|
||||
(package-install 'simple-single)
|
||||
|
||||
(let ((installed (cadr (assq 'simple-single package-alist))))
|
||||
(should (version-list-= '(1 3)
|
||||
(package-desc-version installed)))))))
|
||||
|
||||
(ert-deftest package-test-install-multifile ()
|
||||
"Check properties of the installed multi-file package."
|
||||
(with-package-test (:basedir "data/package" :install '(multi-file))
|
||||
|
Loading…
Reference in New Issue
Block a user