From: Steve Hancock Date: Fri, 26 Nov 2021 14:55:36 +0000 (-0800) Subject: update test case, bump version to .02 X-Git-Tag: 20211029.02^0 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=880a2ca887b3a4709ee54110d031f05d8c3ce3f9;p=perltidy.git update test case, bump version to .02 --- diff --git a/CHANGES.md b/CHANGES.md index ba1e0358..8cd85d09 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,6 +1,6 @@ # Perltidy Change Log -## 2021 10 29.01 +## 2021 10 29.02 - A new flag -xlp has been added which can be set to avoid most of the limitations of the -lp flag regarding side comments, blank lines, and diff --git a/bin/perltidy b/bin/perltidy index a955a143..1e7b41e7 100755 --- a/bin/perltidy +++ b/bin/perltidy @@ -4898,7 +4898,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module =head1 VERSION -This man page documents perltidy version 20211029.01 +This man page documents perltidy version 20211029.02 =head1 BUG REPORTS diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm index 7b554026..9b8f2244 100644 --- a/lib/Perl/Tidy.pm +++ b/lib/Perl/Tidy.pm @@ -110,7 +110,7 @@ BEGIN { # Release version must be bumped, and it is probably past time for a # release anyway. - $VERSION = '20211029.01'; + $VERSION = '20211029.02'; } sub DESTROY { diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod index 762a8760..6f60eac0 100644 --- a/lib/Perl/Tidy.pod +++ b/lib/Perl/Tidy.pod @@ -432,7 +432,7 @@ The module 'Perl::Tidy' comes with a binary 'perltidy' which is installed when t =head1 VERSION -This man page documents Perl::Tidy version 20211029.01 +This man page documents Perl::Tidy version 20211029.02 =head1 LICENSE diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm index 6992143f..c4bc35b2 100644 --- a/lib/Perl/Tidy/Debugger.pm +++ b/lib/Perl/Tidy/Debugger.pm @@ -7,7 +7,7 @@ package Perl::Tidy::Debugger; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub new { diff --git a/lib/Perl/Tidy/DevNull.pm b/lib/Perl/Tidy/DevNull.pm index 59e6b1f4..7704bfb4 100644 --- a/lib/Perl/Tidy/DevNull.pm +++ b/lib/Perl/Tidy/DevNull.pm @@ -7,7 +7,7 @@ package Perl::Tidy::DevNull; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub new { my $self = shift; return bless {}, $self } sub print { return } sub close { return } diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm index f3e9b499..7b78f0e9 100644 --- a/lib/Perl/Tidy/Diagnostics.pm +++ b/lib/Perl/Tidy/Diagnostics.pm @@ -20,7 +20,7 @@ package Perl::Tidy::Diagnostics; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm index 031cc6fa..5b6009ba 100644 --- a/lib/Perl/Tidy/FileWriter.pm +++ b/lib/Perl/Tidy/FileWriter.pm @@ -7,7 +7,7 @@ package Perl::Tidy::FileWriter; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; use constant DEVEL_MODE => 0; diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 717523e6..0dc97bd0 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -49,7 +49,7 @@ use constant DEVEL_MODE => 0; { #<<< A non-indenting brace to contain all lexical variables use Carp; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; # The Tokenizer will be loaded with the Formatter ##use Perl::Tidy::Tokenizer; # for is_keyword() diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm index 6a816906..6440c884 100644 --- a/lib/Perl/Tidy/HtmlWriter.pm +++ b/lib/Perl/Tidy/HtmlWriter.pm @@ -7,7 +7,7 @@ package Perl::Tidy::HtmlWriter; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; use File::Basename; diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm index 314bd165..61e65f7b 100644 --- a/lib/Perl/Tidy/IOScalar.pm +++ b/lib/Perl/Tidy/IOScalar.pm @@ -10,7 +10,7 @@ package Perl::Tidy::IOScalar; use strict; use warnings; use Carp; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm index 0421a1af..a2d34804 100644 --- a/lib/Perl/Tidy/IOScalarArray.pm +++ b/lib/Perl/Tidy/IOScalarArray.pm @@ -14,7 +14,7 @@ package Perl::Tidy::IOScalarArray; use strict; use warnings; use Carp; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm index 56ac3e5f..2366718e 100644 --- a/lib/Perl/Tidy/IndentationItem.pm +++ b/lib/Perl/Tidy/IndentationItem.pm @@ -8,7 +8,7 @@ package Perl::Tidy::IndentationItem; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; BEGIN { diff --git a/lib/Perl/Tidy/LineBuffer.pm b/lib/Perl/Tidy/LineBuffer.pm index 15d0021e..1a6bebeb 100644 --- a/lib/Perl/Tidy/LineBuffer.pm +++ b/lib/Perl/Tidy/LineBuffer.pm @@ -12,7 +12,7 @@ package Perl::Tidy::LineBuffer; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/LineSink.pm b/lib/Perl/Tidy/LineSink.pm index 72f19d50..ca569eab 100644 --- a/lib/Perl/Tidy/LineSink.pm +++ b/lib/Perl/Tidy/LineSink.pm @@ -8,7 +8,7 @@ package Perl::Tidy::LineSink; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/LineSource.pm b/lib/Perl/Tidy/LineSource.pm index 68c6f79b..9d169af9 100644 --- a/lib/Perl/Tidy/LineSource.pm +++ b/lib/Perl/Tidy/LineSource.pm @@ -8,7 +8,7 @@ package Perl::Tidy::LineSource; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index dd8d407b..f6aee81f 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -7,7 +7,7 @@ package Perl::Tidy::Logger; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; sub AUTOLOAD { diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index a1f90804..651e1a3e 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -21,7 +21,7 @@ package Perl::Tidy::Tokenizer; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; # this can be turned on for extra checking during development use constant DEVEL_MODE => 0; diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index f3c38579..fc44fd2c 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -2,7 +2,7 @@ package Perl::Tidy::VerticalAligner; use strict; use warnings; use Carp; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; use Perl::Tidy::VerticalAligner::Alignment; use Perl::Tidy::VerticalAligner::Line; diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm index f2cac976..6372d092 100644 --- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm +++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm @@ -10,7 +10,7 @@ use warnings; { #<<< A non-indenting brace -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; BEGIN { diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm index caae9d78..044ea724 100644 --- a/lib/Perl/Tidy/VerticalAligner/Line.pm +++ b/lib/Perl/Tidy/VerticalAligner/Line.pm @@ -8,7 +8,7 @@ package Perl::Tidy::VerticalAligner::Line; use strict; use warnings; -our $VERSION = '20211029.01'; +our $VERSION = '20211029.02'; BEGIN { diff --git a/t/snippets/expect/git74.def b/t/snippets/expect/git74.def index 73d65928..49ce6528 100644 --- a/t/snippets/expect/git74.def +++ b/t/snippets/expect/git74.def @@ -7,3 +7,47 @@ $self->func( } } ); + +my $test_var = $self->test_call( # + $arg1, + $arg2 +); + +my $test_var = $self->test_call( + $arg1, # + $arg2 +); + +my $test_var = $self->test_call( + # + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + $arg1, + $arg2 + +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, + +); + +my $test_var = + + $self->test_call( + $arg1, + $arg2 + + ); + diff --git a/t/snippets/expect/git74.git74 b/t/snippets/expect/git74.git74 index 40cb4518..4c88378e 100644 --- a/t/snippets/expect/git74.git74 +++ b/t/snippets/expect/git74.git74 @@ -8,3 +8,47 @@ $self -> func ( } } ) ; + +my $test_var = $self -> test_call ( # + $arg1, + $arg2 + ) ; + +my $test_var = $self -> test_call ( + $arg1, # + $arg2 + ) ; + +my $test_var = $self -> test_call ( + # + $arg1, + $arg2, + ) ; + +my $test_var = $self -> test_call ( + + $arg1, + $arg2, + ) ; + +my $test_var = $self -> test_call ( + $arg1, + $arg2 + + ) ; + +my $test_var = $self -> test_call ( + + $arg1, + $arg2, + + ) ; + +my $test_var = + + $self -> test_call ( + $arg1, + $arg2 + + ) ; + diff --git a/t/snippets/git74.in b/t/snippets/git74.in index a6e2a511..f28dfc58 100644 --- a/t/snippets/git74.in +++ b/t/snippets/git74.in @@ -7,3 +7,47 @@ $self->func( } } ); + +my $test_var = $self->test_call( # + $arg1, + $arg2 +); + +my $test_var = $self->test_call( + $arg1, # + $arg2 +); + +my $test_var = $self->test_call( + # + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + $arg1, + $arg2 + +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, + +); + +my $test_var = + + $self->test_call( + $arg1, + $arg2 + + ); + diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt index 086f629e..87dbc4e1 100644 --- a/t/snippets/packing_list.txt +++ b/t/snippets/packing_list.txt @@ -338,6 +338,8 @@ ../snippets25.t rt140025.rt140025 ../snippets25.t xlp1.def ../snippets25.t xlp1.xlp1 +../snippets25.t git74.def +../snippets25.t git74.git74 ../snippets3.t ce_wn1.ce_wn ../snippets3.t ce_wn1.def ../snippets3.t colin.colin @@ -478,5 +480,3 @@ ../snippets9.t rt98902.def ../snippets9.t rt98902.rt98902 ../snippets9.t rt99961.def -../snippets25.t git74.def -../snippets25.t git74.git74 diff --git a/t/snippets25.t b/t/snippets25.t index 0c848d01..96df6162 100644 --- a/t/snippets25.t +++ b/t/snippets25.t @@ -128,6 +128,50 @@ $self->func( } } ); + +my $test_var = $self->test_call( # + $arg1, + $arg2 +); + +my $test_var = $self->test_call( + $arg1, # + $arg2 +); + +my $test_var = $self->test_call( + # + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + $arg1, + $arg2 + +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, + +); + +my $test_var = + + $self->test_call( + $arg1, + $arg2 + + ); + ---------- 'lp2' => <<'----------', @@ -484,6 +528,50 @@ $self->func( } } ); + +my $test_var = $self->test_call( # + $arg1, + $arg2 +); + +my $test_var = $self->test_call( + $arg1, # + $arg2 +); + +my $test_var = $self->test_call( + # + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, +); + +my $test_var = $self->test_call( + $arg1, + $arg2 + +); + +my $test_var = $self->test_call( + + $arg1, + $arg2, + +); + +my $test_var = + + $self->test_call( + $arg1, + $arg2 + + ); + #12........... }, @@ -501,6 +589,50 @@ $self -> func ( } } ) ; + +my $test_var = $self -> test_call ( # + $arg1, + $arg2 + ) ; + +my $test_var = $self -> test_call ( + $arg1, # + $arg2 + ) ; + +my $test_var = $self -> test_call ( + # + $arg1, + $arg2, + ) ; + +my $test_var = $self -> test_call ( + + $arg1, + $arg2, + ) ; + +my $test_var = $self -> test_call ( + $arg1, + $arg2 + + ) ; + +my $test_var = $self -> test_call ( + + $arg1, + $arg2, + + ) ; + +my $test_var = + + $self -> test_call ( + $arg1, + $arg2 + + ) ; + #13........... }, };