6 use Test::More 'no_plan';
10 use_ok('MooseX::MetaDescription');
15 use metaclass 'MooseX::MetaDescription::Meta::Class' => (
28 # always add it *after* the extends
29 __PACKAGE__->meta->description->{'Hello'} = 'Earth';
37 use metaclass 'MooseX::MetaDescription::Meta::Class' => (
49 my $foo_class = Foo->meta;
50 isa_ok($foo_class, 'MooseX::MetaDescription::Meta::Class');
51 isa_ok($foo_class->metadescription, 'MooseX::MetaDescription::Description');
52 is($foo_class->metadescription->descriptor, $foo_class, '... got the circular ref');
54 my $bar_class = Bar->meta;
55 isa_ok($bar_class, 'MooseX::MetaDescription::Meta::Class');
56 isa_ok($bar_class->metadescription, 'MooseX::MetaDescription::Description');
57 is($bar_class->metadescription->descriptor, $bar_class, '... got the circular ref');
59 my $baz_class = Baz->meta;
60 isa_ok($baz_class, 'MooseX::MetaDescription::Meta::Class');
61 isa_ok($baz_class->metadescription, 'MooseX::MetaDescription::Description');
62 is($baz_class->metadescription->descriptor, $baz_class, '... got the circular ref');
64 my $gorch_class = Gorch->meta;
65 isa_ok($gorch_class, 'MooseX::MetaDescription::Meta::Class');
66 isa_ok($gorch_class->metadescription, 'MooseX::MetaDescription::Description');
67 is($gorch_class->metadescription->descriptor, $gorch_class, '... got the circular ref');
69 foreach my $x ('Foo', Foo->new) {
71 $x->meta->description,
76 '... got the right class description'
80 foreach my $x ('Bar', Bar->new) {
82 $x->meta->description,
87 '... got the right class description (inherited and changed)'
91 foreach my $x ('Baz', Baz->new) {
93 $x->meta->description,
98 '... got the right class description (inherited with changes handles correctly)'
102 foreach my $x ('Gorch', Gorch->new) {
104 $x->meta->description,
108 '... got the right class description (with completely overriden desc)'