diff options
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"); |