emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master b1ebc12: Update package.el test for message format


From: Noam Postavsky
Subject: [Emacs-diffs] master b1ebc12: Update package.el test for message format changes
Date: Sun, 15 Jul 2018 00:16:32 -0400 (EDT)

branch: master
commit b1ebc123396f91b51e27f8c61a2cfe730ed202ad
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Update package.el test for message format changes
    
    * test/lisp/emacs-lisp/package-tests.el (package-test-signed): Update
    the expected message.  The message was changed in 2018-06-25 "Reformat
    package.el message strings for future l10n".
    (with-package-test, with-fake-help-buffer): Add debug declarations.
---
 test/lisp/emacs-lisp/package-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/lisp/emacs-lisp/package-tests.el 
b/test/lisp/emacs-lisp/package-tests.el
index db8e1ae..b1adfab 100644
--- a/test/lisp/emacs-lisp/package-tests.el
+++ b/test/lisp/emacs-lisp/package-tests.el
@@ -112,7 +112,7 @@
                                            upload-base)
                                 &rest body)
   "Set up temporary locations and variables for testing."
-  (declare (indent 1))
+  (declare (indent 1) (debug (([&rest form]) body)))
   `(let* ((package-test-user-dir (make-temp-file "pkg-test-user-dir-" t))
           (process-environment (cons (format "HOME=%s" package-test-user-dir)
                                      process-environment))
@@ -158,6 +158,7 @@
 
 (defmacro with-fake-help-buffer (&rest body)
   "Execute BODY in a temp buffer which is treated as the \"*Help*\" buffer."
+  (declare (debug body))
   `(with-temp-buffer
     (help-mode)
     ;; Trick `help-buffer' into using the temp buffer.
@@ -504,7 +505,7 @@ Must called from within a `tar-mode' buffer."
       (with-fake-help-buffer
        (describe-package 'signed-good)
        (goto-char (point-min))
-       (should (re-search-forward "signed-good is an? \\(\\S-+\\) package." 
nil t))
+       (should (re-search-forward "Package signed-good is \\(\\S-+\\)\\." nil 
t))
        (should (string-equal (match-string-no-properties 1) "installed"))
        (should (re-search-forward
                "Status: Installed in ['`‘]signed-good-1.0/['’]."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]