emacs-diffs
[Top][All Lists]
Advanced

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

master c1c2266: Fix recently added cperl test


From: Glenn Morris
Subject: master c1c2266: Fix recently added cperl test
Date: Mon, 23 Aug 2021 13:37:12 -0400 (EDT)

branch: master
commit c1c2266a1c38b1f8dfd001f653ebec6fa79fb3c3
Author: Glenn Morris <rgm@gnu.org>
Commit: Glenn Morris <rgm@gnu.org>

    Fix recently added cperl test
    
    * test/lisp/progmodes/cperl-mode-tests.el
    (cperl-test-here-doc-missing-end): Fix quote regexp.
---
 test/lisp/progmodes/cperl-mode-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lisp/progmodes/cperl-mode-tests.el 
b/test/lisp/progmodes/cperl-mode-tests.el
index bcef885..1d7565a 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)



reply via email to

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