From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 22 Sep 2021 22:51:45 +0000 (-0700)
Subject: add test case for -lp
X-Git-Tag: 20210717.04~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=abc52aadf40305b2937c55ebbd03a59437502eca;p=perltidy.git

add test case for -lp
---

diff --git a/dev-bin/perltidy_random_setup.pl b/dev-bin/perltidy_random_setup.pl
index 5f9ccdce..440831d6 100755
--- a/dev-bin/perltidy_random_setup.pl
+++ b/dev-bin/perltidy_random_setup.pl
@@ -28,6 +28,12 @@ my $rprofiles     = [];
 # if file 'perltidy.pl' is found here then make that the default
 if ( -e './perltidy.pl' ) { $perltidy = './perltidy.pl' }
 
+# always require a separate version of perltidy
+# TODO: go get a copy if there is none
+else { die "Please move a copy of perltidy.pl here first\n" }
+
+# TODO: see if DEVEL_MODE is set, turn it on if not
+
 query(<<EOM);
 
 IMPORTANT: You should start this program in an empty directory that you create
@@ -205,7 +211,7 @@ sub filter_files {
     @{$rlist} = grep { $_ !~ /\.png$/ } @{$rlist};
     @{$rlist} = grep { $_ !~ /\.jpg$/i } @{$rlist};
     @{$rlist} = grep { $_ !~ /\.jpeg$/i } @{$rlist};
-    @{$rlist} = grep { $_ ne 'DIAGNOSTICS' } @{$rlist};
+    @{$rlist} = grep { $_ !~ /\bDIAGNOSTICS$/ } @{$rlist};
 
     # exclude pro{$rlist}
     @{$rlist} = grep { $_ !~ /profile\.[0-9]*/ } @{$rlist};
diff --git a/t/snippets/expect/lp2.def b/t/snippets/expect/lp2.def
new file mode 100644
index 00000000..aa7d3047
--- /dev/null
+++ b/t/snippets/expect/lp2.def
@@ -0,0 +1,8 @@
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+    Handlers => {
+        Init  => sub { $self->init(@_) },
+        Mid   => { sub { shift; $self->mid(@_) } },
+        Final => sub { shift; $self->final(@_) }
+    }
+)->parse( $_[0] );
diff --git a/t/snippets/expect/lp2.lp b/t/snippets/expect/lp2.lp
new file mode 100644
index 00000000..6028f78b
--- /dev/null
+++ b/t/snippets/expect/lp2.lp
@@ -0,0 +1,8 @@
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+                   Handlers => {
+                                 Init  => sub { $self->init(@_) },
+                                 Mid   => { sub { shift; $self->mid(@_) } },
+                                 Final => sub { shift; $self->final(@_) }
+                   }
+)->parse( $_[0] );
diff --git a/t/snippets/lp2.in b/t/snippets/lp2.in
new file mode 100644
index 00000000..220a7d63
--- /dev/null
+++ b/t/snippets/lp2.in
@@ -0,0 +1,8 @@
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+    Handlers => {
+        Init  => sub { $self->init(@_) },
+        Mid =>  { sub { shift; $self->mid(@_) } },
+        Final => sub { shift; $self->final(@_) }
+    }
+)->parse( $_[0] );
diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 889b10e8..7fc7617c 100644
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -471,3 +471,5 @@
 ../snippets9.t	rt98902.def
 ../snippets9.t	rt98902.rt98902
 ../snippets9.t	rt99961.def
+../snippets25.t	lp2.def
+../snippets25.t	lp2.lp
diff --git a/t/snippets25.t b/t/snippets25.t
index 3bf1cb7d..7b4b33b7 100644
--- a/t/snippets25.t
+++ b/t/snippets25.t
@@ -5,6 +5,8 @@
 #2 novalign.novalign1
 #3 novalign.novalign2
 #4 novalign.novalign3
+#5 lp2.def
+#6 lp2.lp
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -23,6 +25,7 @@ BEGIN {
     ###########################################
     $rparams = {
         'def'       => "",
+        'lp'        => "-lp",
         'novalign1' => "-novalign",
         'novalign2' => "-nvsc -nvbc -msc=2",
         'novalign3' => "-nvc",
@@ -33,6 +36,17 @@ BEGIN {
     ############################
     $rsources = {
 
+        'lp2' => <<'----------',
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+    Handlers => {
+        Init  => sub { $self->init(@_) },
+        Mid =>  { sub { shift; $self->mid(@_) } },
+        Final => sub { shift; $self->final(@_) }
+    }
+)->parse( $_[0] );
+----------
+
         'novalign' => <<'----------',
 {
 # simple vertical alignment of '=' and '#'
@@ -134,6 +148,36 @@ my $fail = 0;    # failed
 
 #4...........
         },
+
+        'lp2.def' => {
+            source => "lp2",
+            params => "def",
+            expect => <<'#5...........',
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+    Handlers => {
+        Init  => sub { $self->init(@_) },
+        Mid   => { sub { shift; $self->mid(@_) } },
+        Final => sub { shift; $self->final(@_) }
+    }
+)->parse( $_[0] );
+#5...........
+        },
+
+        'lp2.lp' => {
+            source => "lp2",
+            params => "lp",
+            expect => <<'#6...........',
+# test issue git #74, lost -lp when final anon sub brace followed by '}'
+Util::Parser->new(
+                   Handlers => {
+                                 Init  => sub { $self->init(@_) },
+                                 Mid   => { sub { shift; $self->mid(@_) } },
+                                 Final => sub { shift; $self->final(@_) }
+                   }
+)->parse( $_[0] );
+#6...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};