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 use Mouse::Util qw( apply_all_roles );
50 my @roles = qw( Role::Foo Role::Bar Role::Baz );
51 apply_all_roles( 'Class::A', @roles );
52 ok( Class::A->meta->does_role($_), "Class::A does $_" ) for @roles;
54 apply_all_roles( 'Class::B', map { $_->meta } @roles );
55 ok( Class::A->meta->does_role($_),
56 "Class::B does $_ (applied with meta role object)" )
59 @roles = qw( Role::Foo );
60 apply_all_roles( 'Class::C', @roles );
61 ok( Class::A->meta->does_role($_), "Class::C does $_" ) for @roles;
63 apply_all_roles( 'Class::D', map { $_->meta } @roles );
64 ok( Class::A->meta->does_role($_),
65 "Class::D does $_ (applied with meta role object)" )
68 @roles = qw( Role::Foo Role::Bar ), Role::Baz->meta;
69 apply_all_roles( 'Class::E', @roles );
70 ok( Class::A->meta->does_role($_),
71 "Class::E does $_ (mix of names and meta role object)" )