From f3cec81955d48f2b3b5d25d5b1b69117b9fdc119 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 21 Jun 2015 23:09:34 -0700
Subject: [PATCH] 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 617213386e2..11b7ed4da7f 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 e908635e341..0e2f2106610 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))))))
 
 
-- 
2.39.5