added tests for new sub 'remove_needless_parens'

diff --git a/t/snippets/align28.in b/t/snippets/align28.in
new file mode 100644 (file)
index 0000000..018c0be
--- /dev/null
+++ b/t/snippets/align28.in
@@ -0,0 +1,11 @@
+# tests for 'delete_needless_parens'
+# align all '='s; but do not align parens
+my $w = $columns * $cell_w + ( $columns + 1 ) * $border;
+my $h = $rows * $cell_h + ( $rows + 1 ) * $border;
+my $img = new Gimp::Image( $w, $h, RGB );
+
+# keep leading paren after if as alignment for padding
+eval {
+    if   ( $a->{'abc'} eq 'ABC' ) { no_op(23) }
+    else                          { no_op(42) }
+};

diff --git a/t/snippets/expect/align28.def b/t/snippets/expect/align28.def
new file mode 100644 (file)
index 0000000..3db1a62
--- /dev/null
+++ b/t/snippets/expect/align28.def
@@ -0,0 +1,11 @@
+# tests for 'delete_needless_parens'
+# align all '='s; but do not align parens
+my $w   = $columns * $cell_w + ( $columns + 1 ) * $border;
+my $h   = $rows * $cell_h + ( $rows + 1 ) * $border;
+my $img = new Gimp::Image( $w, $h, RGB );
+
+# keep leading paren after if as alignment for padding
+eval {
+    if   ( $a->{'abc'} eq 'ABC' ) { no_op(23) }
+    else                          { no_op(42) }
+};

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 0bf4d91120b19a89ac9bddac5153f4cd7ac055b6..c30742a06c4b2341ccb2230e004ca8f4e8367c87 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -124,6 +124,8 @@
 ../snippets15.t        olbs.olbs2
 ../snippets15.t        break_old_methods.break_old_methods
 ../snippets15.t        break_old_methods.def
+../snippets15.t        bom1.bom
+../snippets15.t        bom1.def
 ../snippets2.t angle.def
 ../snippets2.t arrows1.def
 ../snippets2.t arrows2.def
@@ -284,5 +286,4 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets15.t        bom1.bom
-../snippets15.t        bom1.def
+../snippets15.t        align28.def

diff --git a/t/snippets15.t b/t/snippets15.t
index 68dfef6dfb1667359711e11353069022d23ead5c..32dd4622cc4e9c7a2206a5475aa3f5dd45349e41 100644 (file)
--- a/t/snippets15.t
+++ b/t/snippets15.t
@@ -10,6 +10,7 @@
 #7 break_old_methods.def
 #8 bom1.bom
 #9 bom1.def
+#10 align28.def
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -40,6 +41,20 @@ BEGIN {
     ############################
     $rsources = {
 
+        'align28' => <<'----------',
+# tests for 'delete_needless_parens'
+# align all '='s; but do not align parens
+my $w = $columns * $cell_w + ( $columns + 1 ) * $border;
+my $h = $rows * $cell_h + ( $rows + 1 ) * $border;
+my $img = new Gimp::Image( $w, $h, RGB );
+
+# keep leading paren after if as alignment for padding
+eval {
+    if   ( $a->{'abc'} eq 'ABC' ) { no_op(23) }
+    else                          { no_op(42) }
+};
+----------
+
         'bom1' => <<'----------',
 # keep cuddled call chain with -bom
 return Mojo::Promise->resolve(
@@ -249,6 +264,24 @@ return Mojo::Promise->resolve($query_params)->then(&_reveal_event)->then(
 );
 #9...........
         },
+
+        'align28.def' => {
+            source => "align28",
+            params => "def",
+            expect => <<'#10...........',
+# tests for 'delete_needless_parens'
+# align all '='s; but do not align parens
+my $w   = $columns * $cell_w + ( $columns + 1 ) * $border;
+my $h   = $rows * $cell_h + ( $rows + 1 ) * $border;
+my $img = new Gimp::Image( $w, $h, RGB );
+
+# keep leading paren after if as alignment for padding
+eval {
+    if   ( $a->{'abc'} eq 'ABC' ) { no_op(23) }
+    else                          { no_op(42) }
+};
+#10...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};