From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 24 Jan 2021 01:13:21 +0000 (-0800)
Subject: Fixed test case for -lp change
X-Git-Tag: 20210402~74
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=edc78081b722d5d6f239bffabce21672d38e71c8;p=perltidy.git

Fixed test case for -lp change
---

diff --git a/CHANGES.md b/CHANGES.md
index 066c3fb3..91a09074 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,5 +1,11 @@
 # Perltidy Change Log
 
+## 2021 01 xx
+
+    - Fixed a rare problem with -lp formatting which could cause alternating 
+    output states.  Except for some very deeply nested data structures,
+    most scripts formatted with this option will not be changed.
+
 ## 2021 01 11
 
     - Fixed issue git #49, -se breaks warnings exit status behavior.
diff --git a/t/snippets/expect/lp1.lp b/t/snippets/expect/lp1.lp
index d97e1fba..e5d24df8 100644
--- a/t/snippets/expect/lp1.lp
+++ b/t/snippets/expect/lp1.lp
@@ -38,10 +38,10 @@ push @contents,
                      )
              ),
              $c->Tr(
-                  { -valign => 'top' },
-                  $c->td(
-                          $c->table(
-                                     $c->Tr(
+                     { -valign => 'top' },
+                     $c->td(
+                             $c->table(
+                                        $c->Tr(
                                             $c->td(
                                                    { -valign => 'top' },
                                                    $c->strong(" Document Type ")
@@ -56,31 +56,33 @@ push @contents,
                                                     -default => "$doc_type"
                                                 )
                                             )
-                                     )
-                          )
-                  ),
-                  $c->td(
-                      $c->table(
-                          $c->Tr(
-                              $c->td(
-                                  { -valign => 'top' },
-                                  $c->strong(
-                                      " Relevant Discipline ", $c->br(), "Area "
-                                  )
-                              ),
-                              $c->td(
-                                      { -valign => 'top' },
-                                      $c->scrolling_list(
+                                        )
+                             )
+                     ),
+                     $c->td(
+                             $c->table(
+                                        $c->Tr(
+                                             $c->td(
+                                                    { -valign => 'top' },
+                                                    $c->strong(
+                                                        " Relevant Discipline ",
+                                                        $c->br(),
+                                                        "Area "
+                                                    )
+                                             ),
+                                             $c->td(
+                                                 { -valign => 'top' },
+                                                 $c->scrolling_list(
                                                      -tabindex => "5",
                                                      -name     => "discipline",
                                                      -values => [@discipValues],
                                                      -labels => \%discipLabels,
                                                      -default => "$discipline"
-                                      ),
-                              )
-                          )
-                      )
-                  )
+                                                 ),
+                                             )
+                                        )
+                             )
+                     )
              ),
              $c->Tr(
                      { -valign => 'top' },
@@ -131,7 +133,8 @@ push @contents,
                                        $c->Tr(
                                            $c->td(
                                                { -valign => 'top' },
-                                               "Description", $c->br(),
+                                               "Description",
+                                               $c->br(),
                                                $c->small("Maximum 750 letters.")
                                            ),
                                            $c->td(
diff --git a/t/snippets5.t b/t/snippets5.t
index eef829ec..3ada9017 100644
--- a/t/snippets5.t
+++ b/t/snippets5.t
@@ -572,10 +572,10 @@ push @contents,
                      )
              ),
              $c->Tr(
-                  { -valign => 'top' },
-                  $c->td(
-                          $c->table(
-                                     $c->Tr(
+                     { -valign => 'top' },
+                     $c->td(
+                             $c->table(
+                                        $c->Tr(
                                             $c->td(
                                                    { -valign => 'top' },
                                                    $c->strong(" Document Type ")
@@ -590,31 +590,33 @@ push @contents,
                                                     -default => "$doc_type"
                                                 )
                                             )
-                                     )
-                          )
-                  ),
-                  $c->td(
-                      $c->table(
-                          $c->Tr(
-                              $c->td(
-                                  { -valign => 'top' },
-                                  $c->strong(
-                                      " Relevant Discipline ", $c->br(), "Area "
-                                  )
-                              ),
-                              $c->td(
-                                      { -valign => 'top' },
-                                      $c->scrolling_list(
+                                        )
+                             )
+                     ),
+                     $c->td(
+                             $c->table(
+                                        $c->Tr(
+                                             $c->td(
+                                                    { -valign => 'top' },
+                                                    $c->strong(
+                                                        " Relevant Discipline ",
+                                                        $c->br(),
+                                                        "Area "
+                                                    )
+                                             ),
+                                             $c->td(
+                                                 { -valign => 'top' },
+                                                 $c->scrolling_list(
                                                      -tabindex => "5",
                                                      -name     => "discipline",
                                                      -values => [@discipValues],
                                                      -labels => \%discipLabels,
                                                      -default => "$discipline"
-                                      ),
-                              )
-                          )
-                      )
-                  )
+                                                 ),
+                                             )
+                                        )
+                             )
+                     )
              ),
              $c->Tr(
                      { -valign => 'top' },
@@ -665,7 +667,8 @@ push @contents,
                                        $c->Tr(
                                            $c->td(
                                                { -valign => 'top' },
-                                               "Description", $c->br(),
+                                               "Description",
+                                               $c->br(),
                                                $c->small("Maximum 750 letters.")
                                            ),
                                            $c->td(