X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F002_custom_description.t;fp=t%2F002_custom_description.t;h=ad7fec5a292792fc81f6b6b474e7c45d8333fa07;hb=6515e19d3b91a45a5f27c1ca73207868a724bd97;hp=dac44b1a435102b9fdb70628e59e84dac479e38d;hpb=b8e30cc61ac8397fdfddc17671325391f7e37650;p=gitmo%2FMooseX-MetaDescription.git diff --git a/t/002_custom_description.t b/t/002_custom_description.t index dac44b1..ad7fec5 100644 --- a/t/002_custom_description.t +++ b/t/002_custom_description.t @@ -13,13 +13,13 @@ BEGIN { { package Foo::Description; use Moose; - + extends 'MooseX::MetaDescription::Description'; - + has 'bar' => (is => 'ro', isa => 'Str'); - has 'baz' => (is => 'ro', isa => 'Str'); - has 'gorch' => (is => 'ro', isa => 'Str'); - + has 'baz' => (is => 'ro', isa => 'Str'); + has 'gorch' => (is => 'ro', isa => 'Str'); + package Foo::MetaDescription::Trait; use Moose::Role; @@ -28,43 +28,43 @@ BEGIN { has '+metadescription_classname' => ( default => 'Foo::Description' ); - + package Foo::MetaDescription::Attribute; use Moose; - + extends 'MooseX::MetaDescription::Meta::Attribute'; with 'Foo::MetaDescription::Trait'; - + has '+metadescription_classname' => ( default => 'Foo::Description' - ); + ); } { package Foo; use Moose; - + has 'bar' => ( metaclass => 'Foo::MetaDescription::Attribute', is => 'ro', - isa => 'Str', + isa => 'Str', default => sub { 'Foo::bar' }, description => { baz => 'Foo::bar::baz', gorch => 'Foo::bar::gorch', } ); - + has 'baz' => ( traits => [ 'Foo::MetaDescription::Trait' ], is => 'ro', - isa => 'Str', + isa => 'Str', default => sub { 'Foo::baz' }, description => { bar => 'Foo::baz::bar', gorch => 'Foo::baz::gorch', } - ); + ); } # check the meta-desc @@ -91,10 +91,10 @@ foreach my $foo ('Foo', Foo->new) { }, '... got the right class description' ); - + my $bar_meta_desc = $foo->meta->get_attribute('bar')->metadescription; is($bar_meta_desc->baz, 'Foo::bar::baz', '... we have methods'); - is($bar_meta_desc->gorch, 'Foo::bar::gorch', '... we have methods'); + is($bar_meta_desc->gorch, 'Foo::bar::gorch', '... we have methods'); is_deeply( $foo->meta->get_attribute('baz')->description, @@ -104,9 +104,9 @@ foreach my $foo ('Foo', Foo->new) { }, '... got the right class description' ); - + my $baz_meta_desc = $foo->meta->get_attribute('baz')->metadescription; is($baz_meta_desc->bar, 'Foo::baz::bar', '... we have methods'); - is($baz_meta_desc->gorch, 'Foo::baz::gorch', '... we have methods'); + is($baz_meta_desc->gorch, 'Foo::baz::gorch', '... we have methods'); }