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