"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/snippets13.t" between
Perl-Tidy-20210402.tar.gz and Perl-Tidy-20210717.tar.gz

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

snippets13.t  (Perl-Tidy-20210402):snippets13.t  (Perl-Tidy-20210717)
skipping to change at line 110 skipping to change at line 110
---------- ----------
'align19' => <<'----------', 'align19' => <<'----------',
# different lhs patterns, do not align the '=' # different lhs patterns, do not align the '='
@_ = qw(sort grep map do eval); @_ = qw(sort grep map do eval);
@is_not_zero_continuation_block_type{@_} = (1) x scalar(@_); @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
---------- ----------
'align20' => <<'----------', 'align20' => <<'----------',
# marginal two-line match; differnt lhs patterns; do not align # marginal two-line match; different lhs patterns; do not align
$w[$i] = $t; $w[$i] = $t;
$t = 1000000; $t = 1000000;
---------- ----------
'align21' => <<'----------', 'align21' => <<'----------',
# two lines with large gap but same lhs pattern so align equals # two lines with large gap but same lhs pattern so align equals
local (@pieces) = split( /\./, $filename, 2 ); local (@pieces) = split( /\./, $filename, 2 );
local ($just_dir_and_base) = $pieces[0]; local ($just_dir_and_base) = $pieces[0];
# two lines with 3 alignment tokens # two lines with 3 alignment tokens
skipping to change at line 142 skipping to change at line 142
$signum[$signal] = $_; $signum[$signal] = $_;
---------- ----------
'align23' => <<'----------', 'align23' => <<'----------',
# two equality lines with same pattern on left of equals will align # two equality lines with same pattern on left of equals will align
my $orig = my $format = "^<<<<< ~~\n"; my $orig = my $format = "^<<<<< ~~\n";
my $abc = "abc"; my $abc = "abc";
---------- ----------
'align24' => <<'----------', 'align24' => <<'----------',
# Do not align interior fat commas here; differnt container types # Do not align interior fat commas here; different container types
my $p = TAP::Parser::SubclassTest->new( my $p = TAP::Parser::SubclassTest->new(
{ {
exec => [ $cat => $file ], exec => [ $cat => $file ],
sources => { MySourceHandler => { accept_all => 1 } }, sources => { MySourceHandler => { accept_all => 1 } },
} }
); );
---------- ----------
'align25' => <<'----------', 'align25' => <<'----------',
# do not align internal commas here; different container types # do not align internal commas here; different container types
skipping to change at line 334 skipping to change at line 334
# different lhs patterns, do not align the '=' # different lhs patterns, do not align the '='
@_ = qw(sort grep map do eval); @_ = qw(sort grep map do eval);
@is_not_zero_continuation_block_type{@_} = (1) x scalar(@_); @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
#11........... #11...........
}, },
'align20.def' => { 'align20.def' => {
source => "align20", source => "align20",
params => "def", params => "def",
expect => <<'#12...........', expect => <<'#12...........',
# marginal two-line match; differnt lhs patterns; do not align # marginal two-line match; different lhs patterns; do not align
$w[$i] = $t; $w[$i] = $t;
$t = 1000000; $t = 1000000;
#12........... #12...........
}, },
'align21.def' => { 'align21.def' => {
source => "align21", source => "align21",
params => "def", params => "def",
expect => <<'#13...........', expect => <<'#13...........',
# two lines with large gap but same lhs pattern so align equals # two lines with large gap but same lhs pattern so align equals
skipping to change at line 382 skipping to change at line 382
# two equality lines with same pattern on left of equals will align # two equality lines with same pattern on left of equals will align
my $orig = my $format = "^<<<<< ~~\n"; my $orig = my $format = "^<<<<< ~~\n";
my $abc = "abc"; my $abc = "abc";
#15........... #15...........
}, },
'align24.def' => { 'align24.def' => {
source => "align24", source => "align24",
params => "def", params => "def",
expect => <<'#16...........', expect => <<'#16...........',
# Do not align interior fat commas here; differnt container types # Do not align interior fat commas here; different container types
my $p = TAP::Parser::SubclassTest->new( my $p = TAP::Parser::SubclassTest->new(
{ {
exec => [ $cat => $file ], exec => [ $cat => $file ],
sources => { MySourceHandler => { accept_all => 1 } }, sources => { MySourceHandler => { accept_all => 1 } },
} }
); );
#16........... #16...........
}, },
'align25.def' => { 'align25.def' => {
 End of changes. 4 change blocks. 
4 lines changed or deleted 4 lines changed or added

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