emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master f3cec81: Port tests to help-quote-translation


From: Paul Eggert
Subject: [Emacs-diffs] master f3cec81: Port tests to help-quote-translation
Date: Mon, 22 Jun 2015 06:10:21 +0000

branch: master
commit f3cec81955d48f2b3b5d25d5b1b69117b9fdc119
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Port tests to help-quote-translation
    
    * test/automated/ert-x-tests.el (ert-test-describe-test):
    * test/automated/package-test.el (package-test-describe-package)
    (package-test-signed): Allow straight quotes, too.
---
 test/automated/ert-x-tests.el  |    4 ++--
 test/automated/package-test.el |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/automated/ert-x-tests.el b/test/automated/ert-x-tests.el
index 6172133..11b7ed4 100644
--- a/test/automated/ert-x-tests.el
+++ b/test/automated/ert-x-tests.el
@@ -196,8 +196,8 @@
             (should (string-match (concat
                                    "\\`ert-test-describe-test is a test"
                                    " defined in"
-                                   " [`‘]ert-x-tests.elc?['’]\\.\n\n"
-                                   "Tests [`‘]ert-describe-test['’]\\.\n\\'")
+                                   " ['`‘]ert-x-tests.elc?['’]\\.\n\n"
+                                   "Tests ['`‘]ert-describe-test['’]\\.\n\\'")
                                   (buffer-string)))))))))
 
 (ert-deftest ert-test-message-log-truncation ()
diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index e908635..0e2f2106 100644
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -394,7 +394,7 @@ Must called from within a `tar-mode' buffer."
      (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)."
+              "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"
@@ -467,7 +467,7 @@ Must called from within a `tar-mode' buffer."
        (should (re-search-forward "signed-good is an? \\(\\S-+\\) package." 
nil t))
        (should (string-equal (match-string-no-properties 1) "installed"))
        (should (re-search-forward
-               "Status: Installed in [`‘]~/signed-good-1.0/['’]."
+               "Status: Installed in ['`‘]~/signed-good-1.0/['’]."
                nil t))))))
 
 



reply via email to

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