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-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~114
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=b981889e9ee0a37f1bc8e2c9b90a5d154c1d032e;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
---

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