6 use Test::More no_plan => 1;
10 use_ok('MooseX::MetaDescription');
15 use metaclass 'MooseX::MetaDescription::Meta::Class' => (
28 __PACKAGE__->meta->description->{'Hello'} = 'Earth';
38 my $foo_class = Foo->meta;
39 isa_ok($foo_class, 'MooseX::MetaDescription::Meta::Class');
40 isa_ok($foo_class->metadescription, 'MooseX::MetaDescription::Description');
41 is($foo_class->metadescription->descriptor, $foo_class, '... got the circular ref');
43 my $bar_class = Bar->meta;
44 isa_ok($bar_class, 'MooseX::MetaDescription::Meta::Class');
45 isa_ok($bar_class->metadescription, 'MooseX::MetaDescription::Description');
46 is($bar_class->metadescription->descriptor, $bar_class, '... got the circular ref');
48 my $baz_class = Baz->meta;
49 isa_ok($baz_class, 'MooseX::MetaDescription::Meta::Class');
50 isa_ok($baz_class->metadescription, 'MooseX::MetaDescription::Description');
51 is($baz_class->metadescription->descriptor, $baz_class, '... got the circular ref');
54 foreach my $x ('Foo', Foo->new) {
56 $x->meta->description,
61 '... got the right class description'
65 foreach my $x ('Bar', Bar->new) {
67 $x->meta->description,
72 '... got the right class description'
76 foreach my $x ('Baz', Baz->new) {
78 $x->meta->description,
83 '... got the right class description'