[elpa] 08/15: Add test for U in package list

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 617eae429571a59178ec8a6bc972a88864457254
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 3 12:23:30 2014 -0500

    Add test for U in package list
---
 ergoemacs-test.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 7ea3b5b..1affaf2 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -1008,6 +1008,14 @@ Selected mark would not be cleared after paste."
       (call-interactively 'ergoemacs-end-of-line-or-what)
       (should (= (point) (point-at-eol))))))
 
+(ert-deftest ergoemacs-test-u-for-package-list-packages ()
+  "Test `package-list-packages' `substitute-command-keys'"
+  (package-list-packages-no-fetch)
+  (should (string= (ergoemacs-pretty-key "U")
+                   (substitute-command-keys
+                    "\\[package-menu-mark-upgrades]")))
+  (kill-buffer (current-buffer)))
+
 ;; (ert-deftest ergoemacs-test-5.3.7 ()
 ;;   "Test Ergoemacs 5.3.7 keys"
 ;;   (let ((ergoemacs-test-fn t))