summaryrefslogtreecommitdiff
path: root/t/op/method.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/method.t')
-rwxr-xr-xt/op/method.t5
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");