Fix the automated test for package priorities.

* automated/package-test.el (package-test-install-prioritized):
New test.

diff --git a/test/ChangeLog b/test/ChangeLog
index b3a0494267ee86793d7d01f76827a595786bca8a..8ed02ee341b5374138adff60b1bac9e41b3060d2 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-16  Jorgen Schaefer  <contact@jorgenschaefer.de>
+
+       * automated/package-test.el (package-test-install-prioritized):
+       New test.
+
 2015-01-15  Wolfgang Jenkner  <wjenkner@inode.at>
 
        * automated/calc-tests.el (calc-tests-equal, calc-tests-simple):

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 89e0bc18509a67133cc2ddfcbeb8279d53a37394..c33a1ba02323fc972960af5576d59484e7dac81b 100644 (file)
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -243,7 +243,7 @@ Must called from within a `tar-mode' buffer."
       (package-refresh-contents)
       (package-install 'simple-single)
 
-      (let ((installed (cdr (assq 'simple-single package-alist))))
+      (let ((installed (cadr (assq 'simple-single package-alist))))
         (should (version-list-= '(1 3)
                                 (package-desc-version installed)))))))