Fixed test case for -lp change

diff --git a/CHANGES.md b/CHANGES.md
index 066c3fb3e6b721681386367e44e3ae8c9a52a0b3..91a09074d119c64d0466df750a51ef9ae14402cd 100644 (file)
--- 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 d97e1fba9238db58eea3d7edccd1ae3c8858d265..e5d24df847861370aca688bdc3cb735d98a1b204 100644 (file)
--- 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 eef829ec651cc8dc08133fd6557fe4c8eb0e7cbc..3ada90170da587d13eac1a6392d05e952fbc178c 100644 (file)
--- 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(