[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c1c2266: Fix recently added cperl test,
Glenn Morris <=