diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-18 19:37:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-18 19:37:01 +0000 |
| commit | bfd79223fa640ed501979ffa9c5ba62bc4cde388 (patch) | |
| tree | 9db46f2a9948b41a534168ff9a1a0383cc978551 /t | |
| parent | 00e0e810c1b6ec448029dccbfb10081759cf8705 (diff) | |
| download | perl-bfd79223fa640ed501979ffa9c5ba62bc4cde388.tar.gz | |
Add a regression test for change #29041
p4raw-link: @29041 on //depot/perl: 8c28b960db3547273cd8c89c0eaafc8e99cf70c1
p4raw-id: //depot/perl@29043
Diffstat (limited to 't')
| -rw-r--r-- | t/comp/uproto.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/uproto.t b/t/comp/uproto.t index f5472d5280..87c8be5e10 100644 --- a/t/comp/uproto.t +++ b/t/comp/uproto.t @@ -6,7 +6,7 @@ BEGIN { require "./test.pl"; } -plan(tests => 32); +plan(tests => 33); 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 unop (_) { is($_[0],11) } +unop 11, 22; # takes only the first parameter into account |