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;
12 use Mouse::Meta::Role::Application;
13 use Mouse::Meta::Role::Composite;
30 my $c = Mouse::Meta::Role::Composite->new(
37 isa_ok($c, 'Mouse::Meta::Role::Composite');
38 { local $TODO = 'M::M::R::Compisite name';
39 is($c->name, 'Role::Foo|Role::Bar|Role::Baz', '... got the composite role name');
41 is_deeply($c->get_roles, [
45 ], '... got the right roles');
47 ok($c->does_role($_), '... our composite does the role ' . $_)
53 { local $TODO = 'cannot apply a composite role directly';
55 Mouse::Meta::Role::Application->new->apply($c);
56 } '... this composed okay';
61 my $c2 = Mouse::Meta::Role::Composite->new(
67 isa_ok($c2, 'Mouse::Meta::Role::Composite');
68 { local $TODO = 'name';
69 is($c2->name, 'Role::Foo|Role::Bar|Role::Baz|Role::Gorch', '... got the composite role name');
71 is_deeply($c2->get_roles, [
74 ], '... got the right roles');
76 ok($c2->does_role($_), '... our composite does the role ' . $_)