This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
uni/universal.t tests passing
[perl5.git] / 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è");
 $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");
 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è");
 
 
 ok $a->isa("Fèmàlè");