From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 18 Oct 2020 01:16:16 +0000 (-0700)
Subject: update test cases for $# parsing fix
X-Git-Tag: 20201001.03~67
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7e3fa46ca3dccc361483b1ff8b3d24173660d6ed;p=perltidy.git

update test cases for $# parsing fix
---

diff --git a/t/snippets/comments.in b/t/snippets/comments.in
index 6edda543..7c0deb71 100644
--- a/t/snippets/comments.in
+++ b/t/snippets/comments.in
@@ -13,7 +13,7 @@ sub macro_get_names { #
    local(%name)=();  ## a static side comment to test -ssc
 
  # a spaced block comment to test -isbc
-   for (0..$                                          #mac_ver) {
+   for (0..$#mac_ver) {
       # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc)
       $name{$_} = $mac_ext[$idx{$mac_exti[$_]}];
       $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well
diff --git a/t/snippets17.t b/t/snippets17.t
index b6686e7c..f2fa32ce 100644
--- a/t/snippets17.t
+++ b/t/snippets17.t
@@ -103,7 +103,7 @@ sub macro_get_names { #
    local(%name)=();  ## a static side comment to test -ssc
 
  # a spaced block comment to test -isbc
-   for (0..$                                          #mac_ver) {
+   for (0..$#mac_ver) {
       # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc)
       $name{$_} = $mac_ext[$idx{$mac_exti[$_]}];
       $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well
diff --git a/t/snippets18.t b/t/snippets18.t
index d60f26c6..cd986388 100644
--- a/t/snippets18.t
+++ b/t/snippets18.t
@@ -132,7 +132,7 @@ sub macro_get_names { #
    local(%name)=();  ## a static side comment to test -ssc
 
  # a spaced block comment to test -isbc
-   for (0..$                                          #mac_ver) {
+   for (0..$#mac_ver) {
       # a very long comment for testing the parameter --nooutdent-long-comments (or -nolc)
       $name{$_} = $mac_ext[$idx{$mac_exti[$_]}];
       $vmsfile =~ s/;[\d\-]*$//; # very long side comment; Clip off version number; we can use a newer version as well