X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F001_custom_attr_meta_with_roles.t;h=a2d1495f423ba55c475b33ee75baae62b3642914;hb=ad3882b59692e4e4eab99f9b183c941e6f63d3bd;hp=e22cf9b8e6546d0e1bd8b0a1c32d19dd4d03ecf0;hpb=e59a5c292a333cac504b65ebd4bba20b5e98d796;p=gitmo%2FMoose.git diff --git a/t/050_metaclasses/001_custom_attr_meta_with_roles.t b/t/050_metaclasses/001_custom_attr_meta_with_roles.t index e22cf9b..a2d1495 100644 --- a/t/050_metaclasses/001_custom_attr_meta_with_roles.t +++ b/t/050_metaclasses/001_custom_attr_meta_with_roles.t @@ -3,24 +3,21 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More; use Test::Exception; -BEGIN { - use_ok('Moose'); -} { package My::Custom::Meta::Attr; use Moose; - + extends 'Moose::Meta::Attribute'; } { package My::Fancy::Role; use Moose::Role; - + has 'bling_bling' => ( metaclass => 'My::Custom::Meta::Attr', is => 'rw', @@ -31,7 +28,7 @@ BEGIN { { package My::Class; use Moose; - + with 'My::Fancy::Role'; } @@ -42,4 +39,4 @@ ok($c->meta->has_attribute('bling_bling'), '... got the attribute'); isa_ok($c->meta->get_attribute('bling_bling'), 'My::Custom::Meta::Attr'); - +done_testing;