diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-05 23:32:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:21 -0700 |
| commit | 1b48ba24c0ad545b5b9a86a58e4289964f1dc105 (patch) | |
| tree | 819e04333509605bea859a0756192261b1cfb3f6 /t/uni/universal.t | |
| parent | d35ff3b6dcd801b010e079076e9dae5b7911e010 (diff) | |
| download | perl-1b48ba24c0ad545b5b9a86a58e4289964f1dc105.tar.gz | |
uni/universal.t tests passing
Diffstat (limited to 't/uni/universal.t')
| -rw-r--r-- | t/uni/universal.t | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/t/uni/universal.t b/t/uni/universal.t index c53f85382f..8f158e90b8 100644 --- a/t/uni/universal.t +++ b/t/uni/universal.t @@ -51,17 +51,11 @@ package main; $a = nèw Àlìcè; ok $a->isa("Àlìcè"); -TODO: { - local $TODO = "mro"; - ok $a->isa("main::Àlìcè"); # check that alternate class names work -} +ok $a->isa("main::Àlìcè"); # check that alternate class names work ok(("main::Àlìcè"->nèw)->isa("Àlìcè")); ok $a->isa("Bòb"); -TODO: { - local $TODO = "mro"; - ok $a->isa("main::Bòb"); -} +ok $a->isa("main::Bòb"); ok $a->isa("Fèmàlè"); |