From edc78081b722d5d6f239bffabce21672d38e71c8 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 23 Jan 2021 17:13:21 -0800 Subject: [PATCH] Fixed test case for -lp change --- CHANGES.md | 6 +++++ t/snippets/expect/lp1.lp | 53 +++++++++++++++++++++------------------- t/snippets5.t | 53 +++++++++++++++++++++------------------- 3 files changed, 62 insertions(+), 50 deletions(-) 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( -- 2.39.5