From 622f345b304f7eb72c94af603c2b1142489691a5 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 28 May 2015 21:45:55 -0700 Subject: [PATCH] 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 file changed, 4 insertions(+), 4 deletions(-) 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)))))) -- 2.39.2