]> git.eshelyaron.com Git - emacs.git/commitdiff
Change package test to look for curved quotes
authorPaul Eggert <eggert@cs.ucla.edu>
Fri, 29 May 2015 04:45:55 +0000 (21:45 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Fri, 29 May 2015 04:46:14 +0000 (21:46 -0700)
* 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.

test/automated/package-test.el

index 677bfa613fc27f8e7162c699d9d13a75bd75ec48..e908635e3417345873fb411e08af258a25cc64e9 100644 (file)
@@ -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))))))