diff options
Diffstat (limited to 't/op/universal.t')
-rwxr-xr-x | t/op/universal.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index 2e31d78b19..fc53c39392 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -9,7 +9,7 @@ BEGIN { $| = 1; } -print "1..93\n"; +print "1..94\n"; $a = {}; bless $a, "Bob"; @@ -59,6 +59,8 @@ $a = new Alice; test $a->isa("Alice"); test $a->isa("main::Alice"); # check that alternate class names work +test(("main::Alice"->new)->isa("Alice")); + test $a->isa("Bob"); test $a->isa("main::Bob"); |