From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 5 Jan 2002 00:31:12 +0000 (+0100)
Subject: Re: [PATCH op.c] Bad \[...] prototype checking
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4eba7d22051960c27a75db6011d6e5dcdae952a8;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH op.c] Bad \[...] prototype checking
Message-ID: <20020105003112.E1850@rafael>

p4raw-id: //depot/perl@14084
---

diff --git a/t/comp/proto.t b/t/comp/proto.t
index 32b1fad..4141f2a 100755
--- a/t/comp/proto.t
+++ b/t/comp/proto.t
@@ -16,7 +16,7 @@ BEGIN {
 
 use strict;
 
-print "1..135\n";
+print "1..140\n";
 
 my $i = 1;
 
@@ -526,6 +526,23 @@ print "ok ", $i++, "\n";
     print "ok ", $i++, "\n";
     print "not " unless myref(*myglob)  =~ /^GLOB\(/;
     print "ok ", $i++, "\n";
+
+    eval q/sub multi1 (\[%@]) { 1 } multi1 $myvar;/;
+    print "not " unless $@ =~ /Type of arg 1 to main::multi1 must be one of/;
+    print "ok ", $i++, "\n";
+    eval q/sub multi2 (\[$*&]) { 1 } multi2 @myarray;/;
+    print "not " unless $@ =~ /Type of arg 1 to main::multi2 must be one of/;
+    print "ok ", $i++, "\n";
+    eval q/sub multi3 (\[$@]) { 1 } multi3 %myhash;/;
+    print "not " unless $@ =~ /Type of arg 1 to main::multi3 must be one of/;
+    print "ok ", $i++, "\n";
+    eval q/sub multi4 ($\[%]) { 1 } multi4 1, &mysub;/;
+    print "not " unless $@ =~ /Type of arg 2 to main::multi4 must be one of/;
+    print "ok ", $i++, "\n";
+    eval q/sub multi5 (\[$@]$) { 1 } multi5 *myglob;/;
+    print "not " unless $@ =~ /Type of arg 1 to main::multi5 must be one of/
+		     && $@ =~ /Not enough arguments/;
+    print "ok ", $i++, "\n";
 }
 
 # check that obviously bad prototypes are getting warnings