diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-26 00:17:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-25 22:08:09 +0000 |
| commit | 178d71da13d12a268fc143e0973bd76c77bbd99c (patch) | |
| tree | 2fbd4745dc6ef40ed6032214effb04835b13607c | |
| parent | 6fa35b067dd6fd8e20b4b357a4dc01750b05b084 (diff) | |
| download | perl-178d71da13d12a268fc143e0973bd76c77bbd99c.tar.gz | |
new test in op/universal.t
Message-ID: <20020125231733.A11733@rafael>
p4raw-id: //depot/perl@14423
| -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"); |