procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cperl-test-bug-14343): Make it work for perl-mode

Browse source 
* test/lisp/progmodes/cperl-mode-tests.el (cperl--tests-heredoc-face):
New const.
(cperl-test-heredocs, cperl-test-bug-14343): Use it.
(cperl-test-identify-no-heredoc): Remove left-over message.
This commit is contained in:
Stefan Monnier 2021-08-30 10:52:25 -04:00
parent 455bed3c72
commit ebd7c52f11
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/lisp/progmodes/cperl-mode-tests.el
View file

@ -205,7 +205,6 @@ point in the distant past, and is still broken in perl-mode. "
(dolist (code not-here-docs)
(with-temp-buffer
(insert code "\n\n")
(message "inserting: %S" code)
(funcall cperl-test-mode)
(goto-char (point-min))
(forward-line 1)
@ -243,13 +242,15 @@ issued by CPerl mode."
(defvar perl-continued-statement-offset)
(defvar perl-indent-level)
(defconst cperl--tests-heredoc-face
(if (equal cperl-test-mode 'perl-mode) 'perl-heredoc
'font-lock-string-face))
(ert-deftest cperl-test-heredocs ()
"Test that HERE-docs are fontified with the appropriate face."
(require 'perl-mode)
(let ((file (ert-resource-file "here-docs.pl"))
(cperl-continued-statement-offset perl-continued-statement-offset)
(target-font (if (equal cperl-test-mode 'perl-mode) 'perl-heredoc
'font-lock-string-face))
(case-fold-search nil))
(with-temp-buffer
(insert-file-contents file)
@ -262,7 +263,7 @@ issued by CPerl mode."
(while (search-forward "look-here" nil t)
(should (equal
(get-text-property (match-beginning 0) 'face)
target-font))
cperl--tests-heredoc-face))
(beginning-of-line)
(should (null (looking-at "[ \t]")))
(forward-line 1)))
@ -428,7 +429,6 @@ under timeout control."
(ert-deftest cperl-test-bug-14343 ()
"Verify that inserting text into a HERE-doc string with Elisp
does not break fontification."
(skip-unless (eq cperl-test-mode #'cperl-mode))
(with-temp-buffer
(insert "my $string = <<HERE;\n")
(insert "One line of text.\n")
@ -439,13 +439,13 @@ does not break fontification."
(goto-char (point-min))
(search-forward "One line")
(should (equal (get-text-property (point) 'face)
'font-lock-string-face))
cperl--tests-heredoc-face))
(beginning-of-line)
(insert "Another line if text.\n")
(font-lock-ensure)
(forward-line -1)
(should (equal (get-text-property (point) 'face)
'font-lock-string-face))
cperl--tests-heredoc-face))
))