9 use_ok('Moose::Util', ':all');
33 Foo->meta->apply(Quux->meta);
41 Foo->meta->apply(Quux->meta);
42 Bar->meta->apply(Quux->meta);
45 [ Foo->meta, Foo->meta, Bar->meta ],
49 is(does_role('Quux', 'Foo'), 1, "Quux does Foo");
50 is(does_role('Quux', 'Bar'), 1, "Quux does Bar");
51 ensure_all_roles('Quux', qw(Foo Bar));
54 [ Foo->meta, Foo->meta, Bar->meta ],
55 "unchanged, since all roles are already applied",
59 ensure_all_roles($obj, qw(Foo Bar));
62 [ Foo->meta, Foo->meta, Bar->meta ],
63 "unchanged, since all roles are already applied",