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;
8 $TODO = q{Mouse is not yet completed};
12 package My::Singleton::Role;
15 sub foo { 'My::Singleton::Role' }
17 package My::Role::Metaclass;
19 BEGIN { extends 'Mouse::Meta::Role' };
21 sub _role_for_combination {
22 my ($self, $opts) = @_;
24 return My::Singleton::Role->meta;
27 package My::Special::Role;
28 use Mouse::Role -metaclass => 'My::Role::Metaclass';
30 sub foo { 'My::Special::Role' }
32 package My::Usual::Role;
35 sub bar { 'My::Usual::Role' }
41 'My::Special::Role' => { number => 1 },
42 'My::Usual::Role' => { number => 2 },
46 is(My::Class->foo, 'My::Singleton::Role', 'role_for_combination applied');
47 is(My::Class->bar, 'My::Usual::Role', 'collateral role');
48 is_deeply($OPTS, { number => 1 });