From: Glenn Morris <rgm@gnu.org>
Date: Mon, 23 Aug 2021 17:36:57 +0000 (-0700)
Subject: Fix recently added cperl test
X-Git-Tag: emacs-28.0.90~1336
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1c2266a1c38b1f8dfd001f653ebec6fa79fb3c3;p=emacs.git

Fix recently added cperl test

* test/lisp/progmodes/cperl-mode-tests.el
(cperl-test-here-doc-missing-end): Fix quote regexp.
---

diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index bcef885a77c..1d7565ae46b 100644
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -231,7 +231,7 @@ issued by CPerl mode."
       (goto-char (point-min))
       (funcall cperl-test-mode)
       (cperl-find-pods-heres)
-      (should (string-match "End of here-document [‘']HERE[’']"
+      (should (string-match "End of here-document [‘'`]HERE[’']"
                             collected-messages))))
   (ert-with-message-capture collected-messages
     (with-temp-buffer
@@ -242,7 +242,7 @@ issued by CPerl mode."
       (goto-char (point-min))
       (funcall cperl-test-mode)
       (cperl-find-pods-heres)
-      (should (string-match "End of here-document [‘']THERE[’']"
+      (should (string-match "End of here-document [‘'`]THERE[’']"
                             collected-messages)))))
 
 (defvar perl-continued-statement-offset)