mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

Re-add and fix prioritized archives test.

Browse Source 
* 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:
Jorgen Schaefer 2015-01-22 21:06:47 +01:00
parent 3e359626e6
commit 2f908e0cac
2 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/ChangeLog
View File

@ -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

17
test/automated/package-test.el
View File

@ -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))