X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F048_anon_class_create_init.t;h=a1cbb23df4f0959fb31b2be790d050f134db132d;hb=a5be8918f4208949883336b0248c69d00bc1c0e4;hp=6051f1547909725eae9b7d11f9b4598acaa0d66d;hpb=559201bf99d9c677a64df9317032fed6c0ca125f;p=gitmo%2FClass-MOP.git diff --git a/t/048_anon_class_create_init.t b/t/048_anon_class_create_init.t index 6051f15..a1cbb23 100644 --- a/t/048_anon_class_create_init.t +++ b/t/048_anon_class_create_init.t @@ -82,10 +82,8 @@ my $instance; superclasses => [Class::MOP::Class->create_anon_class->name], ); my @superclasses = $submeta->superclasses; - { local $TODO = "anon class ancestry isn't preserved yet"; ok(Class::MOP::class_of($superclasses[0]), "superclasses are kept alive by their subclasses"); - } } { @@ -96,7 +94,6 @@ my $instance; weaken => 0, )->name; } - local $TODO = "non-weak anon classes not implemented yet"; ok(Class::MOP::class_of($meta_name), "metaclass still exists"); { my $bar_meta;