}
}
-is_deeply(
- [ map { $_->name() } ClassWithRoleHCA->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ ClassWithRoleHCA->meta()->does_role('RoleHCA'),
'ClassWithRoleHCA does RoleHCA'
);
ClassWithRoleHCA->meta()->make_immutable();
-is_deeply(
- [ map { $_->name() } ClassWithRoleHCA->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ ClassWithRoleHCA->meta()->does_role('RoleHCA'),
'ClassWithRoleHCA (immutable) does RoleHCA'
);
with 'RoleHCA';
}
+ok(
+ RoleWithRoleHCA->meta()->does_role('RoleHCA'),
+ 'RoleWithRoleHCA does RoleHCA'
+);
+
{
package ClassWithRoleWithRoleHCA;
}
}
-is_deeply(
- [ map { $_->name() } ClassWithRoleHCA->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ ClassWithRoleWithRoleHCA->meta()->does_role('RoleHCA'),
'ClassWithRoleWithRoleHCA does RoleHCA'
);
ClassWithRoleWithRoleHCA->meta()->make_immutable();
-is_deeply(
- [ map { $_->name() } ClassWithRoleHCA->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ ClassWithRoleWithRoleHCA->meta()->does_role('RoleHCA'),
'ClassWithRoleWithRoleHCA (immutable) does RoleHCA'
);
apply_all_roles( $instance, 'RoleHCA' );
-is_deeply(
- [ map { $_->name() } $instance->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ $instance->meta()->does_role('RoleHCA'),
'$instance does RoleHCA'
);
$instance->meta()->make_immutable();
-is_deeply(
- [ map { $_->name() } $instance->meta()->calculate_all_roles() ],
- ['RoleHCA'],
+ok(
+ $instance->meta()->does_role('RoleHCA'),
'$instance (immutable) does RoleHCA'
);