This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
uni/universal.t tests passing
authorFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 06:32:16 +0000 (23:32 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:21 +0000 (13:01 -0700)
t/uni/universal.t

index c53f853..8f158e9 100644 (file)
@@ -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è");