update test case, bump version to .02

diff --git a/CHANGES.md b/CHANGES.md
index ba1e03580f67ca4d5184c6f7760d3eb0093f742b..8cd85d095aaf9ae99cf0d3ec8658885d88ba871a 100644 (file)
--- 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 a955a143b705bada3aaf5947a6565467feb411f9..1e7b41e799b94193226c036ecc2fbab04ede777c 100755 (executable)
--- 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 7b554026ed2c5ed41c8503e4037c18bc8f6d9627..9b8f22448f791fdfd99350d93340945f44e19f1e 100644 (file)
--- 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 762a8760f106d72c60c408c75f30dfc7b585fdfe..6f60eac04849401106da5228e07d45cc2ccd6f0d 100644 (file)
--- 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 6992143f4c5c635c04a6130de5e91dae93414cd4..c4bc35b251bac4efc0fd8dcb2870e6d539bdac5a 100644 (file)
--- 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 59e6b1f4041045a73a66996eb52112a9d78cf6b9..7704bfb4aa5a7e3cfe21cb8fe3596793bddf5684 100644 (file)
--- 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 f3e9b4993fbadcf068fdf5ecaffeb9bc5fcd52de..7b78f0e9979c981c0c85e9f9ec03085fc25e4be6 100644 (file)
--- 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 031cc6fae6214c408df305a8fd81ea04a60161fb..5b6009ba8a3f600560216ba3a771923f07ce1cf1 100644 (file)
--- 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 717523e6b3ef34f4b860b5d2e258fa78d09c2b85..0dc97bd0d1a5cb6648bac33a9c0e788cbff88a63 100644 (file)
--- 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 6a8169061ab04c8202759781600bc36720901179..6440c8847c77f2f76b64fc5b75e9c61c3f009d6c 100644 (file)
--- 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 314bd165deb13f11bffa40d473efd6877584d788..61e65f7ba07c6420a4208bda88f8044391d607c4 100644 (file)
--- 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 0421a1afd6de3eaf8ff88be1fb3553cabc92b0c2..a2d3480402490b9121a3e81c82c12f76dabcf022 100644 (file)
--- 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 56ac3e5fc12331fd4f6dfad735e1e403bde14b21..2366718e804d529b27defd4c26cbe1dca5586b4a 100644 (file)
--- 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 15d0021e787d66c3ecb57af6cebfe8559348bd6f..1a6bebeb4f29a8c9317e7ab8458efa2712414c6f 100644 (file)
--- 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 72f19d50df211f63bf9c6a0aa72960daec10b0d5..ca569eab3e6bfc7860705bff8a551faeaaf16518 100644 (file)
--- 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 68c6f79b67f318f2d00ac0351dcd9741edf10bf4..9d169af9c638b3633b22721a9090b43e5350618d 100644 (file)
--- 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 dd8d407bde5966bebb984be181f52c4f97c1c566..f6aee81fde2862b88c1b2aaeb7d51c136ff27a99 100644 (file)
--- 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 a1f90804f717c2e9476b7105121b841b5b91f680..651e1a3ec6455cc756974d89c81b09ac45e41822 100644 (file)
--- 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 f3c385790beda007b1d881bf22bffb7349cd1b00..fc44fd2c5d04402e995074e59b2055709d4fa79f 100644 (file)
--- 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 f2cac97681755f4f4861bb18e3ce129229b55176..6372d092c3fc00d856beaf655c35f6dff017eb00 100644 (file)
--- 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 caae9d78d10d7791e702b202f56e153a9c7262c0..044ea7249371ea83e8af6e8f34657d5079af2f9e 100644 (file)
--- 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 73d659287a3aa8b6bcc9663dd8fc53d290e8b4de..49ce65284659f0b7cf1df5a9df171939c0fc0ae2 100644 (file)
--- 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 40cb45184323e993bd6f43bfcc976f48127f71cf..4c88378e5d4b2f664a7fbd6d88ac41a24f1384bf 100644 (file)
--- 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 a6e2a51150eb37db8edf98e9343e3799d1118980..f28dfc5861b31dd4230865bdae4158346d02776e 100644 (file)
--- 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 086f629e648ea5c116430871607fd024c7a4b381..87dbc4e1559da348bee25f88993f170d8b59e886 100644 (file)
--- 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 0c848d01928c4b04e4732fb74e628ee6cc44f2e8..96df61622c300e6b239cdd8647a1a662ee90ab9c 100644 (file)
--- 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...........
         },
     };