From: Dave Rolsky Date: Wed, 1 Jul 2009 17:44:25 +0000 (-0500) Subject: perltidy this test a bit X-Git-Tag: 0.89~5^2~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8fc2592a252b1278316d1197978f345e312fc11;p=gitmo%2FClass-MOP.git perltidy this test a bit --- diff --git a/t/088_immutable_role_application_bug.t b/t/088_immutable_role_application_bug.t index 3e62e00..b610a44 100644 --- a/t/088_immutable_role_application_bug.t +++ b/t/088_immutable_role_application_bug.t @@ -1,6 +1,10 @@ use strict; use warnings; + +use Test::More tests => 1; + BEGIN { + package My::Meta::Trait; use Moose::Role; @@ -8,20 +12,22 @@ BEGIN { before 'make_immutable' => sub { my ($meta) = @_; + # $meta->name->meta should have the correct methods on it.. $FAILED++ unless $meta->name->meta->get_method('some_method'); }; } + { + package TestClass; use Moose -traits => 'My::Meta::Trait'; - sub some_method {} + sub some_method { } __PACKAGE__->meta->make_immutable; } -use Test::More tests => 1; TODO: { local $TODO = 'This broke as of 07302fb'; is $My::Meta::Trait::FAILED, 0, 'Can find method';