projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6fa35b0
)
new test in op/universal.t
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 25 Jan 2002 23:17:33 +0000
(
00:17
+0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 25 Jan 2002 22:08:09 +0000
(22:08 +0000)
Message-ID: <
20020125231733
.A11733@rafael>
p4raw-id: //depot/perl@14423
t/op/universal.t
patch
|
blob
|
history
diff --git
a/t/op/universal.t
b/t/op/universal.t
index
2e31d78
..
fc53c39
100755
(executable)
--- a/
t/op/universal.t
+++ b/
t/op/universal.t
@@
-9,7
+9,7
@@
BEGIN {
$| = 1;
}
-print "1..9
3
\n";
+print "1..9
4
\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");