6 use Test::More no_plan => 1;
10 use_ok('MooseX::MetaDescription');
15 use metaclass 'MooseX::MetaDescription::Meta::Class';
18 __PACKAGE__->meta->description->{'Hello'} = 'World';
21 metaclass => 'MooseX::MetaDescription::Meta::Attribute',
24 default => sub { 'Foo::bar' },
26 baz => 'Foo::bar::baz',
27 gorch => 'Foo::bar::gorch',
32 traits => [ 'MooseX::MetaDescription::Meta::Trait' ],
35 default => sub { 'Foo::baz' },
37 bar => 'Foo::baz::bar',
38 gorch => 'Foo::baz::gorch',
45 my $foo_class = Foo->meta;
46 isa_ok($foo_class->metadescription, 'MooseX::MetaDescription::Description');
47 is($foo_class->metadescription->descriptor, $foo_class, '... got the circular ref');
49 my $bar_attr = Foo->meta->get_attribute('bar');
50 isa_ok($bar_attr->metadescription, 'MooseX::MetaDescription::Description');
51 is($bar_attr->metadescription->descriptor, $bar_attr, '... got the circular ref');
53 my $baz_attr = Foo->meta->get_attribute('baz');
54 isa_ok($baz_attr->metadescription, 'MooseX::MetaDescription::Description');
55 is($baz_attr->metadescription->descriptor, $baz_attr, '... got the circular ref');
57 # check the actual descs
59 foreach my $foo ('Foo', Foo->new) {
61 $foo->meta->description,
62 { 'Hello' => 'World' },
63 '... got the right class description'
67 $foo->meta->get_attribute('bar')->description,
69 baz => 'Foo::bar::baz',
70 gorch => 'Foo::bar::gorch',
72 '... got the right class description'
76 $foo->meta->get_attribute('baz')->description,
78 bar => 'Foo::baz::bar',
79 gorch => 'Foo::baz::gorch',
81 '... got the right class description'