From: Father Chrysostomos Date: Thu, 6 Oct 2011 06:32:16 +0000 (-0700) Subject: uni/universal.t tests passing X-Git-Tag: v5.15.4~132^2~5 X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1b48ba24c0ad545b5b9a86a58e4289964f1dc105?hp=d35ff3b6dcd801b010e079076e9dae5b7911e010 uni/universal.t tests passing --- diff --git a/t/uni/universal.t b/t/uni/universal.t index c53f853..8f158e9 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è");