add test case for if/elsif/else alignment

diff --git a/t/snippets/align34.in b/t/snippets/align34.in
new file mode 100644 (file)
index 0000000..e667106
--- /dev/null
+++ b/t/snippets/align34.in
@@ -0,0 +1,10 @@
+# align all '{' and runs of '='
+if    ( $line =~ /^NAME>(.*)/i )       { $Cookies{'name'} = $1; }
+elsif ( $line =~ /^EMAIL>(.*)/i )      { $email = $1; }
+elsif ( $line =~ /^IP_ADDRESS>(.*)/i ) { $ipaddress = $1; }
+elsif ( $line =~ /^<!--(.*)-->/i )     { $remoteuser = $1; }
+elsif ( $line =~ /^PASSWORD>(.*)/i )   { next; }
+elsif ( $line =~ /^IMAGE>(.*)/i )      { $image_url = $1; }
+elsif ( $line =~ /^LINKNAME>(.*)/i )   { $linkname = $1; }
+elsif ( $line =~ /^LINKURL>(.*)/i )    { $linkurl = $1; }
+else                                   { $body .= $line; }

diff --git a/t/snippets/expect/align34.def b/t/snippets/expect/align34.def
new file mode 100644 (file)
index 0000000..0c6d800
--- /dev/null
+++ b/t/snippets/expect/align34.def
@@ -0,0 +1,10 @@
+# align all '{' and runs of '='
+if    ( $line =~ /^NAME>(.*)/i )       { $Cookies{'name'} = $1; }
+elsif ( $line =~ /^EMAIL>(.*)/i )      { $email           = $1; }
+elsif ( $line =~ /^IP_ADDRESS>(.*)/i ) { $ipaddress       = $1; }
+elsif ( $line =~ /^<!--(.*)-->/i )     { $remoteuser      = $1; }
+elsif ( $line =~ /^PASSWORD>(.*)/i )   { next; }
+elsif ( $line =~ /^IMAGE>(.*)/i )      { $image_url = $1; }
+elsif ( $line =~ /^LINKNAME>(.*)/i )   { $linkname  = $1; }
+elsif ( $line =~ /^LINKURL>(.*)/i )    { $linkurl   = $1; }
+else                                   { $body .= $line; }

diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 6fc3d399dcfaa7d841e6b0bc2836746cfe369250..12dc2604f5b624a58653a69a1eb39465cf28366c 100644 (file)
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -444,3 +444,4 @@
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
+../snippets23.t        align34.def

diff --git a/t/snippets23.t b/t/snippets23.t
index bd0a2d4a7cf6c945f0ae5b67f615808148ea7f06..3b67a41f4bd29f82ceef6fa7f711ea535e88a79b 100644 (file)
--- a/t/snippets23.t
+++ b/t/snippets23.t
@@ -16,6 +16,7 @@
 #13 wnxl.wnxl2
 #14 wnxl.wnxl3
 #15 wnxl.wnxl4
+#16 align34.def
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -74,6 +75,19 @@ BEGIN {
     ############################
     $rsources = {
 
+        'align34' => <<'----------',
+# align all '{' and runs of '='
+if    ( $line =~ /^NAME>(.*)/i )       { $Cookies{'name'} = $1; }
+elsif ( $line =~ /^EMAIL>(.*)/i )      { $email = $1; }
+elsif ( $line =~ /^IP_ADDRESS>(.*)/i ) { $ipaddress = $1; }
+elsif ( $line =~ /^<!--(.*)-->/i )     { $remoteuser = $1; }
+elsif ( $line =~ /^PASSWORD>(.*)/i )   { next; }
+elsif ( $line =~ /^IMAGE>(.*)/i )      { $image_url = $1; }
+elsif ( $line =~ /^LINKNAME>(.*)/i )   { $linkname = $1; }
+elsif ( $line =~ /^LINKURL>(.*)/i )    { $linkurl = $1; }
+else                                   { $body .= $line; }
+----------
+
         'boa' => <<'----------',
 my @field
   : field
@@ -470,6 +484,23 @@ threads->create( sub {
 } )->join();
 #15...........
         },
+
+        'align34.def' => {
+            source => "align34",
+            params => "def",
+            expect => <<'#16...........',
+# align all '{' and runs of '='
+if    ( $line =~ /^NAME>(.*)/i )       { $Cookies{'name'} = $1; }
+elsif ( $line =~ /^EMAIL>(.*)/i )      { $email           = $1; }
+elsif ( $line =~ /^IP_ADDRESS>(.*)/i ) { $ipaddress       = $1; }
+elsif ( $line =~ /^<!--(.*)-->/i )     { $remoteuser      = $1; }
+elsif ( $line =~ /^PASSWORD>(.*)/i )   { next; }
+elsif ( $line =~ /^IMAGE>(.*)/i )      { $image_url = $1; }
+elsif ( $line =~ /^LINKNAME>(.*)/i )   { $linkname  = $1; }
+elsif ( $line =~ /^LINKURL>(.*)/i )    { $linkurl   = $1; }
+else                                   { $body .= $line; }
+#16...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};