; cperl-mode-tests.el: Don't run the newest test in perl-mode

* test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-74245): Skip
if not in cperl-mode

(cherry picked from commit b981889e9ee0a37f1bc8e2c9b90a5d154c1d032e)

diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index af20c397b23f6343fedcfbcddcdfadb99ef9ea24..a9cd9531e5a9e4dc800c126a301266fff9fb4af9 100644 (file)
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -1592,6 +1592,7 @@ and the slash, then we have a division."
 (ert-deftest cperl-test-bug-74245 ()
   "Verify that a bare \"$\" can appear at the end of a subroutine signature.
 It must not be mistaken for \"$)\"."
+  (skip-unless (eq cperl-test-mode #'cperl-mode))
   (cperl--run-test-cases
    (ert-resource-file "cperl-bug-74245.pl")
    (while (null (eobp))