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.

diff --git a/test/automated/ert-x-tests.el b/test/automated/ert-x-tests.el
index 617213386e29a56354279efb68ec3897a5d4f13c..11b7ed4da7f43b94c776219e6f47f3fe64059ba9 100644 (file)
--- 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 e908635e3417345873fb411e08af258a25cc64e9..0e2f210661013e6c9d8c16c5193ab77a6bba446c 100644 (file)
--- 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))))))