From: Harald Jörg <haj@posteo.de>
Date: Tue, 14 Jan 2025 11:17:47 +0000 (+0100)
Subject: ; cperl-mode-tests.el: Don't run the newest test in perl-mode
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05f05b67ecfa434ee14ba51fd0c6e18fa64e8587;p=emacs.git

; 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 af20c397b23..a9cd9531e5a 100644
--- 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))