diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-11 13:02:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-11 12:52:49 +0000 |
| commit | 145eb477362c0def60b3ef8ad6349c490a44735a (patch) | |
| tree | 1b077b939fca9fa56bfb2bb225b8e17bc1772aa8 /t/op/method.t | |
| parent | 85b4d566cfc4cf2b1ecaeebe47e23f42cb8382a1 (diff) | |
| download | perl-145eb477362c0def60b3ef8ad6349c490a44735a.tar.gz | |
$foo->bar(0)
Message-ID: <20010511120222.A11529@penderel>
p4raw-id: //depot/perl@10080
Diffstat (limited to 't/op/method.t')
| -rwxr-xr-x | t/op/method.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/method.t b/t/op/method.t index 1f5cbb64dc..ceb39be7da 100755 --- a/t/op/method.t +++ b/t/op/method.t @@ -9,7 +9,7 @@ BEGIN { @INC = '../lib'; } -print "1..54\n"; +print "1..56\n"; @A::ISA = 'B'; @B::ISA = 'C'; @@ -46,6 +46,9 @@ test($obj->$mname("a","b","c"), "method,a,b,c"); test((method $obj ("a","b","c")), "method,a,b,c"); test((method $obj "a","b","c"), "method,a,b,c"); +test($obj->method(0), "method,0"); +test($obj->method(1), "method,1"); + test($obj->method(), "method"); test($obj->$mname(), "method"); test((method $obj ()), "method"); |