From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 29 May 2015 04:45:55 +0000 (-0700)
Subject: Change package test to look for curved quotes
X-Git-Tag: emacs-25.0.90~1933
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=622f345b304f7eb72c94af603c2b1142489691a5;p=emacs.git

Change package test to look for curved quotes

* test/automated/package-test.el (package-test-describe-package)
(package-test-signed): Search for curved single quotes as well as
for grave accent and apostrophe.
---

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 677bfa613fc..e908635e341 100644
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -393,8 +393,8 @@ Must called from within a `tar-mode' buffer."
      (describe-package 'simple-single)
      (goto-char (point-min))
      (should (search-forward "simple-single is an installed package." nil t))
-     (should (search-forward
-              "Status: Installed in `~/simple-single-1.3/' (unsigned)."
+     (should (re-search-forward
+              "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"
@@ -466,8 +466,8 @@ Must called from within a `tar-mode' buffer."
        (goto-char (point-min))
        (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/'."
+       (should (re-search-forward
+		"Status: Installed in [`‘]~/signed-good-1.0/['’]."
 		nil t))))))