mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-09 05:30:50 +00:00
a14321ff69
* 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).
52 lines
933 B
Perl
52 lines
933 B
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use 5.020;
|
|
|
|
# This file contains test input and expected output for the tests in
|
|
# cperl-mode-tests.el, cperl-mode-test-indent-exp. The code is
|
|
# syntactically valid, but doesn't make much sense.
|
|
|
|
# -------- for loop: input --------
|
|
for my $foo (@ARGV)
|
|
{
|
|
...;
|
|
}
|
|
# -------- for loop: expected output --------
|
|
for my $foo (@ARGV) {
|
|
...;
|
|
}
|
|
# -------- for loop: end --------
|
|
|
|
# -------- while loop: input --------
|
|
{
|
|
while (1)
|
|
{
|
|
say "boring loop";
|
|
}
|
|
continue
|
|
{
|
|
last;
|
|
}
|
|
}
|
|
# -------- while loop: expected output --------
|
|
{
|
|
while (1) {
|
|
say "boring loop";
|
|
} continue {
|
|
last;
|
|
}
|
|
}
|
|
# -------- while loop: end --------
|
|
|
|
# -------- if-then-else: input --------
|
|
if (my $foo) { bar() } elsif (quux()) { baz() } else { quuux }
|
|
# -------- if-then-else: expected output --------
|
|
if (my $foo) {
|
|
bar();
|
|
} elsif (quux()) {
|
|
baz();
|
|
} else {
|
|
quuux;
|
|
}
|
|
# -------- if-then-else: end --------
|