X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F003_immutable_n_around.t;h=c633bf53bce493d742f08d7db983feddfdfae9a9;hb=415572b72d8e6cc4a0fd8c05466ea60ee25a375b;hp=8c47b5605f20a52808bc8ec89d400e1931822d12;hpb=77ed022ced279fde3f1cc8b76324e2d1cffde6e6;p=gitmo%2FMoose.git diff --git a/t/600_todo_tests/003_immutable_n_around.t b/t/600_todo_tests/003_immutable_n_around.t index 8c47b56..c633bf5 100644 --- a/t/600_todo_tests/003_immutable_n_around.t +++ b/t/600_todo_tests/003_immutable_n_around.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More 'no_plan'; +use Test::More; # if make_immutable is removed from the following code the tests pass @@ -31,7 +31,7 @@ use Test::More 'no_plan'; package Zoink; use Moose; - + extends qw(Gorch); } @@ -42,7 +42,6 @@ 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") . ")" ); - local $TODO = 'these tests fail once Gorch is immutable' if Gorch->meta->is_immutable; 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") . ")" ); } @@ -53,3 +52,5 @@ tests: { redo tests; } } + +done_testing;