From: Dave Rolsky Date: Fri, 22 May 2009 14:01:41 +0000 (-0500) Subject: Tidy tests X-Git-Tag: 0.80~74 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b47d013a471fb2c669f63e251c7f77b7917fea6;p=gitmo%2FMoose.git Tidy tests --- diff --git a/t/100_bugs/024_anon_method_metaclass.t b/t/100_bugs/024_anon_method_metaclass.t index ab08bfe..ac3eb81 100644 --- a/t/100_bugs/024_anon_method_metaclass.t +++ b/t/100_bugs/024_anon_method_metaclass.t @@ -31,16 +31,17 @@ my $method_object = $method_class->wrap( Ball->meta->add_method(bounce => $method_object); -for (1, 2) { - is(Ball->bounce, 'ok', "method still exists on Ball"); - is(Ball->meta->get_method('bounce')->meta->name, $method_class, "method's package still exists"); +for ( 1, 2 ) { + is( Ball->bounce, 'ok', "method still exists on Ball" ); + is( Ball->meta->get_method('bounce')->meta->name, $method_class, + "method's package still exists" ); local $TODO = "method seems to be reinitialized" if !$method_meta; - is(Ball->meta->get_method('bounce')->meta . '', $original_meta, "method's metaclass still exists"); - ok(Ball->meta->get_method('bounce')->meta->does_role('Arbitrary::Roll'), "method still does Arbitrary::Roll"); + is( Ball->meta->get_method('bounce')->meta . '', $original_meta, + "method's metaclass still exists" ); + ok( Ball->meta->get_method('bounce')->meta->does_role('Arbitrary::Roll'), + "method still does Arbitrary::Roll" ); undef $method_meta; -}; - - +}