"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/snippets16.t" between
Perl-Tidy-20191203.tar.gz and Perl-Tidy-20200110.tar.gz

About: Perltidy is a Perl script indenter and reformatter (beautifier).

snippets16.t  (Perl-Tidy-20191203):snippets16.t  (Perl-Tidy-20200110)
skipping to change at line 17 skipping to change at line 17
#4 git10.def #4 git10.def
#5 git10.git10 #5 git10.git10
#6 multiple_equals.def #6 multiple_equals.def
#7 align31.def #7 align31.def
#8 almost1.def #8 almost1.def
#9 almost2.def #9 almost2.def
#10 almost3.def #10 almost3.def
#11 rt130394.def #11 rt130394.def
#12 rt131115.def #12 rt131115.def
#13 rt131115.rt131115 #13 rt131115.rt131115
#14 ndsm1.def
#15 ndsm1.ndsm
#16 rt131288.def
#17 rt130394.rt130394
# To locate test #13 you can search for its name or the string '#13' # To locate test #13 you can search for its name or the string '#13'
use strict; use strict;
use Test; use Test;
use Carp; use Carp;
use Perl::Tidy; use Perl::Tidy;
my $rparams; my $rparams;
my $rsources; my $rsources;
my $rtests; my $rtests;
BEGIN { BEGIN {
########################################### ###########################################
# BEGIN SECTION 1: Parameter combinations # # BEGIN SECTION 1: Parameter combinations #
########################################### ###########################################
$rparams = { $rparams = {
'def' => "", 'def' => "",
'git10' => "-wn -ce -cbl=sort,map,grep", 'git10' => "-wn -ce -cbl=sort,map,grep",
'ndsm' => "-ndsm",
'rt130394' => "-olbn=1",
'rt131115' => "-bli", 'rt131115' => "-bli",
'spp1' => "-spp=1", 'spp1' => "-spp=1",
'spp2' => "-spp=2", 'spp2' => "-spp=2",
}; };
############################ ############################
# BEGIN SECTION 2: Sources # # BEGIN SECTION 2: Sources #
############################ ############################
$rsources = { $rsources = {
skipping to change at line 103 skipping to change at line 109
# ignore second '=' here # ignore second '=' here
$| = $debug = 1 if $opt_d; $| = $debug = 1 if $opt_d;
$full_index = 1 if $opt_i; $full_index = 1 if $opt_i;
$query_all = $opt_A if $opt_A; $query_all = $opt_A if $opt_A;
# not aligning multiple '='s here # not aligning multiple '='s here
$start = $end = $len = $ismut = $number = $allele_ori = $allele_mut = $start = $end = $len = $ismut = $number = $allele_ori = $allele_mut =
$proof = $xxxxreg = $reg = $dist = ''; $proof = $xxxxreg = $reg = $dist = '';
---------- ----------
'ndsm1' => <<'----------',
;;;;; # 1 trapped semicolon
sub numerically {$a <=> $b};
;;;;;
sub Numerically {$a <=> $b}; # trapped semicolon
@: = qw;2c72656b636168
2020202020
;; __;
----------
'rt130394' => <<'----------', 'rt130394' => <<'----------',
# rt130394: keep on one line # rt130394: keep on one line with -olbn=1
$factorial = sub { reduce { $a * $b } 1 .. 11 }; $factorial = sub { reduce { $a * $b } 1 .. 11 };
---------- ----------
'rt131115' => <<'----------', 'rt131115' => <<'----------',
# closing braces to be inteded with -bli # closing braces to be inteded with -bli
sub a { sub a {
my %uniq; my %uniq;
foreach my $par (@_) { foreach my $par (@_) {
$uniq{$par} = 1; $uniq{$par} = 1;
} }
} }
---------- ----------
'rt131288' => <<'----------',
sub OptArgs2::STYLE_FULL { 3 }
$style == OptArgs2::STYLE_FULL ? 'FullUsage' : 'NormalUsage', 'usage: ' . $usage
. "\n";
----------
'spp' => <<'----------', 'spp' => <<'----------',
sub get_val() { } sub get_val() { }
sub get_Val () { } sub get_Val () { }
sub Get_val () { } sub Get_val () { }
---------- ----------
}; };
#################################### ####################################
skipping to change at line 257 skipping to change at line 278
ArrayRef => sub { $_->[0] }; ArrayRef => sub { $_->[0] };
} }
#10........... #10...........
}, },
'rt130394.def' => { 'rt130394.def' => {
source => "rt130394", source => "rt130394",
params => "def", params => "def",
expect => <<'#11...........', expect => <<'#11...........',
# rt130394: keep on one line # rt130394: keep on one line with -olbn=1
$factorial = sub { reduce { $a * $b } 1 .. 11 }; $factorial = sub {
reduce { $a * $b } 1 .. 11;
};
#11........... #11...........
}, },
'rt131115.def' => { 'rt131115.def' => {
source => "rt131115", source => "rt131115",
params => "def", params => "def",
expect => <<'#12...........', expect => <<'#12...........',
# closing braces to be inteded with -bli # closing braces to be inteded with -bli
sub a { sub a {
my %uniq; my %uniq;
skipping to change at line 291 skipping to change at line 314
sub a sub a
{ {
my %uniq; my %uniq;
foreach my $par (@_) foreach my $par (@_)
{ {
$uniq{$par} = 1; $uniq{$par} = 1;
} }
} }
#13........... #13...........
}, },
'ndsm1.def' => {
source => "ndsm1",
params => "def",
expect => <<'#14...........',
; # 1 trapped semicolon
sub numerically { $a <=> $b }
sub Numerically { $a <=> $b }; # trapped semicolon
@: = qw;2c72656b636168
2020202020
;;
__;
#14...........
},
'ndsm1.ndsm' => {
source => "ndsm1",
params => "ndsm",
expect => <<'#15...........',
;
;
;
;
; # 1 trapped semicolon
sub numerically { $a <=> $b };
;
;
;
;
;
sub Numerically { $a <=> $b }; # trapped semicolon
@: = qw;2c72656b636168
2020202020
;;
__;
#15...........
},
'rt131288.def' => {
source => "rt131288",
params => "def",
expect => <<'#16...........',
sub OptArgs2::STYLE_FULL { 3 }
$style == OptArgs2::STYLE_FULL ? 'FullUsage' : 'NormalUsage',
'usage: ' . $usage . "\n";
#16...........
},
'rt130394.rt130394' => {
source => "rt130394",
params => "rt130394",
expect => <<'#17...........',
# rt130394: keep on one line with -olbn=1
$factorial = sub { reduce { $a * $b } 1 .. 11 };
#17...........
},
}; };
my $ntests = 0 + keys %{$rtests}; my $ntests = 0 + keys %{$rtests};
plan tests => $ntests; plan tests => $ntests;
} }
############### ###############
# EXECUTE TESTS # EXECUTE TESTS
############### ###############
 End of changes. 7 change blocks. 
3 lines changed or deleted 84 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)