mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 02:10:46 -08:00
Code Issues Projects Releases Wiki Activity

* package-test.el (package-test-signed): More informative failure messages

Browse source 
Not that anyone appears to read them.
This commit is contained in:
Glenn Morris 2015-02-10 15:01:13 -05:00
parent 4069c132a3
commit ecf8c30bd6
2 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test/ChangeLog
View file

@ -1,15 +1,17 @@
2015-02-10 Glenn Morris <rgm@gnu.org>
* automated/package-test.el (package-test-signed):
More informative failure messages.
2015-02-07 Fabián Ezequiel Gallina <fgallina@gnu.org>
* automated/python-tests.el
(python-eldoc--get-symbol-at-point-1)
* automated/python-tests.el (python-eldoc--get-symbol-at-point-1)
(python-eldoc--get-symbol-at-point-2)
(python-eldoc--get-symbol-at-point-3)
(python-eldoc--get-symbol-at-point-4): New tests.
2015-02-07 Fabián Ezequiel Gallina <fgallina@gnu.org>
* automated/python-tests.el
(python-tests-visible-string): New function.
* automated/python-tests.el (python-tests-visible-string):
New function.
(python-parens-electric-indent-1)
(python-triple-quote-pairing): Fix indentation, move require calls.
(python-hideshow-hide-levels-1)

10
test/automated/package-test.el
View file

@ -419,13 +419,17 @@ Must called from within a `tar-mode' buffer."
;; Check if the installed package status is updated.
(let ((buf (package-list-packages)))
(package-menu-refresh)
(should (re-search-forward "^\\s-+signed-good\\s-+1\\.0\\s-+installed"
nil t)))
(should (re-search-forward
"^\\s-+signed-good\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-"
nil t))
(should (string-equal (match-string-no-properties 1) "1.0"))
(should (string-equal (match-string-no-properties 2) "installed")))
;; Check if the package description is updated.
(with-fake-help-buffer
(describe-package 'signed-good)
(goto-char (point-min))
(should (search-forward "signed-good is an installed package." nil t))
(should (re-search-forward "signed-good is an? \\(\\S-+\\) package." nil t))
(should (string-equal (match-string-no-properties 1) "installed"))
(should (search-forward
"Status: Installed in `~/signed-good-1.0/'."
nil t))))))