fixed some comments

diff --git a/t/snippets/align19.in b/t/snippets/align19.in
index 6620fc029daab89a466de798a3d6d7ec9b0388a4..a55cf4b95e26027c5803caed86f44aac5f9299ff 100644 (file)
--- a/t/snippets/align19.in
+++ b/t/snippets/align19.in
@@ -1,3 +1,3 @@
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_                                       = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);

diff --git a/t/snippets/align20.in b/t/snippets/align20.in
index 826d84cc20ab5cbc1257072d94b4c5396db64b5c..f01fe831f5ad9d08b1d547d657d5c5407fbcedda 100644 (file)
--- a/t/snippets/align20.in
+++ b/t/snippets/align20.in
@@ -1,3 +1,3 @@
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;

diff --git a/t/snippets/align21.in b/t/snippets/align21.in
index 7deed5d767e7b9ce14299a7d33d8aed6913cd8c1..216bed1947a62be220c4d0819a85ab66a2669bd5 100644 (file)
--- a/t/snippets/align21.in
+++ b/t/snippets/align21.in
@@ -1,3 +1,3 @@
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];

diff --git a/t/snippets/align5.in b/t/snippets/align5.in
index d277938a6d362f5fbfcd6d426155c430e3837fec..ada0b4b3204d61abc78fd81519d506ac7ffc2c0a 100644 (file)
--- a/t/snippets/align5.in
+++ b/t/snippets/align5.in
@@ -1,3 +1,4 @@
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );

diff --git a/t/snippets/expect/align19.def b/t/snippets/expect/align19.def
index fdf1bca724e623173c91d55c6a1718ed2cc61c30..bcff9320c739c1ed1a3e98479a3d20bf8a76ef3f 100644 (file)
--- a/t/snippets/expect/align19.def
+++ b/t/snippets/expect/align19.def
@@ -1,3 +1,3 @@
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_ = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);

diff --git a/t/snippets/expect/align20.def b/t/snippets/expect/align20.def
index 826d84cc20ab5cbc1257072d94b4c5396db64b5c..f01fe831f5ad9d08b1d547d657d5c5407fbcedda 100644 (file)
--- a/t/snippets/expect/align20.def
+++ b/t/snippets/expect/align20.def
@@ -1,3 +1,3 @@
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;

diff --git a/t/snippets/expect/align21.def b/t/snippets/expect/align21.def
index 7deed5d767e7b9ce14299a7d33d8aed6913cd8c1..216bed1947a62be220c4d0819a85ab66a2669bd5 100644 (file)
--- a/t/snippets/expect/align21.def
+++ b/t/snippets/expect/align21.def
@@ -1,3 +1,3 @@
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];

diff --git a/t/snippets/expect/align5.def b/t/snippets/expect/align5.def
index d277938a6d362f5fbfcd6d426155c430e3837fec..ada0b4b3204d61abc78fd81519d506ac7ffc2c0a 100644 (file)
--- a/t/snippets/expect/align5.def
+++ b/t/snippets/expect/align5.def
@@ -1,3 +1,4 @@
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );

diff --git a/t/snippets1.t b/t/snippets1.t
index bd8a5aa05557f832dcbc7efb18addb41d01850c3..68927e328eb75f7fa08d90fcae615bf1815eb4a9 100644 (file)
--- a/t/snippets1.t
+++ b/t/snippets1.t
@@ -88,6 +88,7 @@ my $salute =
 ----------
 
         'align5' => <<'----------',
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );
@@ -297,6 +298,7 @@ my $salute =
             source => "align5",
             params => "def",
             expect => <<'#6...........',
+# some lists
 printline( "Broadcast", &bintodq($b),    ( $b,    $mask, $bcolor, 0 ) );
 printline( "HostMin",   &bintodq($hmin), ( $hmin, $mask, $bcolor, 0 ) );
 printline( "HostMax",   &bintodq($hmax), ( $hmax, $mask, $bcolor, 0 ) );

diff --git a/t/snippets13.t b/t/snippets13.t
index 139927d184323c29384b89d200b71e91933dffc1..c9a4f57bd06206f64f9050428d65b79c0fa0cdee 100644 (file)
--- a/t/snippets13.t
+++ b/t/snippets13.t
@@ -97,19 +97,19 @@ use constant {
 ----------
 
         'align19' => <<'----------',
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_                                       = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
 ----------
 
         'align20' => <<'----------',
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
 ----------
 
         'align21' => <<'----------',
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
 ----------
@@ -277,7 +277,7 @@ return (
             source => "align19",
             params => "def",
             expect => <<'#11...........',
-# big gap; do not align the '='
+# different lhs patterns, do not align the '='
 @_ = qw(sort grep map do eval);
 @is_not_zero_continuation_block_type{@_} = (1) x scalar(@_);
 #11...........
@@ -287,7 +287,7 @@ return (
             source => "align20",
             params => "def",
             expect => <<'#12...........',
-# a marginal two-line match: do not align
+# marginal two-line match; differnt lhs patterns; do not align
 $w[$i] = $t;
 $t = 1000000;
 #12...........
@@ -297,7 +297,7 @@ $t = 1000000;
             source => "align21",
             params => "def",
             expect => <<'#13...........',
-# two lines with large gap
+# two lines with large gap but same lhs pattern so align equals
 local (@pieces)            = split( /\./, $filename, 2 );
 local ($just_dir_and_base) = $pieces[0];
 #13...........