From cf08800d4b4312124848314c38bdf3a79e7a9e56 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 2 Jun 2019 12:31:37 -0700
Subject: [PATCH] added tests for new sub 'remove_needless_parens'

---
 t/snippets/align28.in         | 11 +++++++++++
 t/snippets/expect/align28.def | 11 +++++++++++
 t/snippets/packing_list.txt   |  5 +++--
 t/snippets15.t                | 33 +++++++++++++++++++++++++++++++++
 4 files changed, 58 insertions(+), 2 deletions(-)
 create mode 100644 t/snippets/align28.in
 create mode 100644 t/snippets/expect/align28.def

diff --git a/t/snippets/align28.in b/t/snippets/align28.in
new file mode 100644
index 00000000..018c0be2
--- /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
index 00000000..3db1a623
--- /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 0bf4d911..c30742a0 100644
--- 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 68dfef6d..32dd4622 100644
--- 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};
-- 
2.39.5