Change 14423 by jhi@alpha on 2002/01/25 22:08:09
Subject: [PATCH] new test in op/universal.t
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Fri, 25 Jan 2002 23:17:33 +0100
Message-ID: <20020125231733.A11733@rafael>
Affected files ...
.... //depot/perl/t/op/universal.t#20 edit
Differences ...
==== //depot/perl/t/op/universal.t#20 (xtext) ====
Index: perl/t/op/universal.t
--- perl/t/op/universal.t.~1~ Fri Jan 25 15:15:05 2002
+++ perl/t/op/universal.t Fri Jan 25 15:15:05 2002
@@ -9,7 +9,7 @@
$| = 1;
}
-print "1..93\n";
+print "1..94\n";
$a = {};
bless $a, "Bob";
@@ -59,6 +59,8 @@
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");
End of Patch.
