[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a14321f: cperl-mode: Fix a test to ensure cperl-mode is active
From: |
Lars Ingebrigtsen |
Subject: |
master a14321f: cperl-mode: Fix a test to ensure cperl-mode is active |
Date: |
Mon, 5 Oct 2020 21:41:34 -0400 (EDT) |
branch: master
commit a14321ff69eac17ec0a8f3ee9cb106c1ed512281
Author: Harald Jörg <haj@posteo.de>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
cperl-mode: Fix a test to ensure cperl-mode is active
* test/lisp/progmodes/cperl-mode-tests.el
(cperl-mode-test-indent-exp): Make sure that cperl-mode is active
for testing 'cperl-indent-exp', also skip this test under
perl-mode.
* test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl:
Eliminate dependency on unrelated customizable variables (bug#10483).
---
test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl | 4 ++--
test/lisp/progmodes/cperl-mode-tests.el | 2 ++
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl
b/test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl
index 4a9842f..8c1883a 100644
--- a/test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl
+++ b/test/lisp/progmodes/cperl-mode-resources/cperl-indent-exp.pl
@@ -26,7 +26,7 @@ say "boring loop";
}
continue
{
-last; # no endless loop, though
+last;
}
}
# -------- while loop: expected output --------
@@ -34,7 +34,7 @@ last; # no endless loop, though
while (1) {
say "boring loop";
} continue {
- last; # no endless loop, though
+ last;
}
}
# -------- while loop: end --------
diff --git a/test/lisp/progmodes/cperl-mode-tests.el
b/test/lisp/progmodes/cperl-mode-tests.el
index f0ff8e9..20be7ed 100644
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -148,6 +148,7 @@ under timeout control."
These exercise some standard blocks and also the special
treatment for Perl expressions where a closing paren isn't the
end of the statement."
+ (skip-unless (eq cperl-test-mode #'cperl-mode))
(let ((file (expand-file-name "cperl-indent-exp.pl"
cperl-mode-tests-data-directory)))
(with-temp-buffer
@@ -166,6 +167,7 @@ end of the statement."
got)
(with-temp-buffer
(insert code)
+ (cperl-mode)
(goto-char (point-min))
(cperl-indent-exp) ; here we go!
(setq expected (concat "test case " name ":\n" expected))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a14321f: cperl-mode: Fix a test to ensure cperl-mode is active,
Lars Ingebrigtsen <=