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};
13 use_ok('Mouse::Util', ':all');
37 Foo->meta->apply(Quux->meta);
45 Foo->meta->apply(Quux->meta);
46 Bar->meta->apply(Quux->meta);
49 [ Foo->meta, Foo->meta, Bar->meta ],
53 is(does_role('Quux', 'Foo'), 1, "Quux does Foo");
54 is(does_role('Quux', 'Bar'), 1, "Quux does Bar");
55 ensure_all_roles('Quux', qw(Foo Bar));
58 [ Foo->meta, Foo->meta, Bar->meta ],
59 "unchanged, since all roles are already applied",
63 ensure_all_roles($obj, qw(Foo Bar));
66 [ Foo->meta, Foo->meta, Bar->meta ],
67 "unchanged, since all roles are already applied",