From: Jesse Luehrs Date: Sat, 17 Sep 2011 22:35:54 +0000 (-0500) Subject: clean up some test stuff X-Git-Tag: 2.0300~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8813e6af5e274ce818e2cc264882281e1fa1b210;p=gitmo%2FMoose.git clean up some test stuff --- diff --git a/t/cmop/metaclass_incompatibility.t b/t/cmop/metaclass_incompatibility.t index 5148c29..598dcef 100644 --- a/t/cmop/metaclass_incompatibility.t +++ b/t/cmop/metaclass_incompatibility.t @@ -172,7 +172,7 @@ Foo::Meta::Class->create( 'Foo::Reverse', ); isa_ok(Class::MOP::class_of('Foo::Reverse'), 'Foo::Meta::Class'); -{ local $TODO = 'No idea how to handle case where parent class is created before children'; +{ local $TODO = 'No idea how to handle case where child class is created before parent'; isa_ok(Class::MOP::class_of('Foo::Reverse::Sub'), 'Foo::Meta::Class'); isa_ok(Class::MOP::class_of('Foo::Reverse::Sub::Sub'), 'Foo::Meta::Class'); } diff --git a/t/todo_tests/immutable_n_around.t b/t/todo_tests/immutable_n_around.t index c633bf5..3e3ca6b 100644 --- a/t/todo_tests/immutable_n_around.t +++ b/t/todo_tests/immutable_n_around.t @@ -39,12 +39,10 @@ use Test::More; my @classes = qw(Foo Bar Gorch Zoink); tests: { - TODO: { is( Foo->new->foo, undef, "base class (" . (Foo->meta->is_immutable ? "immutable" : "mutable") . ")" ); is( Bar->new->foo, 42, "around new called on Bar->new (" . (Bar->meta->is_immutable ? "immutable" : "mutable") . ")" ); is( Gorch->new->foo, 42, "around new called on Gorch->new (" . (Gorch->meta->is_immutable ? "immutable" : "mutable") . ")" ); is( Zoink->new->foo, 42, "around new called Zoink->new (" . (Zoink->meta->is_immutable ? "immutable" : "mutable") . ")" ); - } if ( @classes ) { local $SIG{__WARN__} = sub {};