emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master 622f345: Change package test to look for curved quo


From: Paul Eggert
Subject: [Emacs-diffs] master 622f345: Change package test to look for curved quotes
Date: Fri, 29 May 2015 04:46:25 +0000

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

    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.
---
 test/automated/package-test.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 677bfa6..e908635 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))))))
 
 



reply via email to

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