This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a regression test for change #29041
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 18 Oct 2006 19:37:01 +0000 (19:37 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 18 Oct 2006 19:37:01 +0000 (19:37 +0000)
p4raw-link: @29041 on //depot/perl: 8c28b960db3547273cd8c89c0eaafc8e99cf70c1

p4raw-id: //depot/perl@29043

t/comp/uproto.t

index f5472d5..87c8be5 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require "./test.pl";
 }
 
     require "./test.pl";
 }
 
-plan(tests => 32);
+plan(tests => 33);
 
 sub f($$_) { my $x = shift; is("@_", $x) }
 
 
 sub f($$_) { my $x = shift; is("@_", $x) }
 
@@ -66,3 +66,6 @@ like( $@, qr/Malformed prototype for main::wrong2/, 'wrong2' );
 
 sub opt ($;_) { is($_[0], "seen"); ok(!defined $_[1], "; has precedence over _") }
 opt("seen");
 
 sub opt ($;_) { is($_[0], "seen"); ok(!defined $_[1], "; has precedence over _") }
 opt("seen");
+
+sub unop (_) { is($_[0],11) }
+unop 11, 22; # takes only the first parameter into account