2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 $TODO = q{Mouse is not yet completed};
11 use Test::Mouse qw(does_ok);
14 package Foo::Meta::Role;
16 Mouse::Util::meta_class_alias
17 FooRole => 'Foo::Meta::Role';
19 package Foo::Meta::Class;
21 extends 'Mouse::Meta::Class';
22 with 'Foo::Meta::Role';
23 Mouse::Util::meta_class_alias
24 FooClass => 'Foo::Meta::Class';
26 package Foo::Meta::Role::Attribute;
28 Mouse::Util::meta_attribute_alias
29 FooAttrRole => 'Foo::Meta::Role::Attribute';
31 package Foo::Meta::Attribute;
33 extends 'Mouse::Meta::Attribute';
34 with 'Foo::Meta::Role::Attribute';
35 Mouse::Util::meta_attribute_alias
36 FooAttrClass => 'Foo::Meta::Attribute';
38 package Bar::Meta::Role;
40 Mouse::Util::meta_class_alias 'BarRole';
42 package Bar::Meta::Class;
44 extends 'Mouse::Meta::Class';
45 with 'Bar::Meta::Role';
46 Mouse::Util::meta_class_alias 'BarClass';
48 package Bar::Meta::Role::Attribute;
50 Mouse::Util::meta_attribute_alias 'BarAttrRole';
52 package Bar::Meta::Attribute;
54 extends 'Mouse::Meta::Attribute';
55 with 'Bar::Meta::Role::Attribute';
56 Mouse::Util::meta_attribute_alias 'BarAttrClass';
59 package FooWithMetaClass;
60 use Mouse -metaclass => 'FooClass';
63 metaclass => 'FooAttrClass',
68 package FooWithMetaTrait;
69 use Mouse -traits => 'FooRole';
72 traits => [qw(FooAttrRole)],
76 package BarWithMetaClass;
77 use Mouse -metaclass => 'BarClass';
80 metaclass => 'BarAttrClass',
85 package BarWithMetaTrait;
86 use Mouse -traits => 'BarRole';
89 traits => [qw(BarAttrRole)],
94 my $fwmc_meta = FooWithMetaClass->meta;
95 my $fwmt_meta = FooWithMetaTrait->meta;
96 isa_ok($fwmc_meta, 'Foo::Meta::Class');
97 isa_ok($fwmc_meta->get_attribute('bar'), 'Foo::Meta::Attribute');
98 does_ok($fwmt_meta, 'Foo::Meta::Role');
99 does_ok($fwmt_meta->get_attribute('bar'), 'Foo::Meta::Role::Attribute');
101 my $bwmc_meta = BarWithMetaClass->meta;
102 my $bwmt_meta = BarWithMetaTrait->meta;
103 isa_ok($bwmc_meta, 'Bar::Meta::Class');
104 isa_ok($bwmc_meta->get_attribute('bar'), 'Bar::Meta::Attribute');
105 does_ok($bwmt_meta, 'Bar::Meta::Role');
106 does_ok($bwmt_meta->get_attribute('bar'), 'Bar::Meta::Role::Attribute');