diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-17 19:25:39 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-17 23:42:16 +0100 |
| commit | ca66737c5313665a1646a64de8fa6181c9e11de5 (patch) | |
| tree | 6880136d28331ab9a1b2d61b2b50a184b7a97403 /test | |
| parent | e276b42800dc2b8263ebf24d7c449f53c819307b (diff) | |
| download | emacs-ca66737c5313665a1646a64de8fa6181c9e11de5.tar.gz | |
* lisp/emacs-lisp/package.el: Many small changes
Replace all instances of 'face with 'font-lock-face.
(describe-package-1): Improve some strings and move the summary up the
list.
(package-install-file): Update docstring.
(package-menu-hide-package): Bind to `H'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/package-test.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/test/automated/package-test.el b/test/automated/package-test.el index 5ab274747c9..524613dc6f6 100644 --- a/test/automated/package-test.el +++ b/test/automated/package-test.el @@ -381,8 +381,9 @@ Must called from within a `tar-mode' buffer." (describe-package '5x5) (goto-char (point-min)) (should (search-forward "5x5 is a built-in package." nil t)) - (should (search-forward "Status: Built-in." nil t)) - (should (search-forward "Summary: simple little puzzle game" nil t)) + ;; Don't assume the descriptions are in any particular order. + (save-excursion (should (search-forward "Status: Built-in." nil t))) + (save-excursion (should (search-forward "Summary: simple little puzzle game" nil t))) (should (search-forward "The aim of 5x5" nil t))) ;; Installed @@ -394,14 +395,11 @@ Must called from within a `tar-mode' buffer." (describe-package 'simple-single) (goto-char (point-min)) (should (search-forward "simple-single is an installed package." nil t)) - (should (re-search-forward - "Status: Installed in ['`‘]~/simple-single-1.3/['’] (unsigned)." - nil t)) - (should (search-forward "Version: 1.3" nil t)) - (should (search-forward "Summary: A single-file package with no dependencies" - nil t)) - (should (search-forward "Homepage: http://doodles.au" nil t)) - (should (re-search-forward "Keywords: \\[?frobnicate\\]?" nil t)) + (save-excursion (should (re-search-forward "Status: Installed in ['`‘]simple-single-1.3/['’] (unsigned)." nil t))) + (save-excursion (should (search-forward "Version: 1.3" nil t))) + (save-excursion (should (search-forward "Summary: A single-file package with no dependencies" nil t))) + (save-excursion (should (search-forward "Homepage: http://doodles.au" nil t))) + (save-excursion (should (re-search-forward "Keywords: \\[?frobnicate\\]?" nil t))) ;; No description, though. Because at this point we don't know ;; what archive the package originated from, and we don't have ;; its readme file saved. |