} @_
}
-throws_ok {
- Moose::Meta::Class->create_anon_class(
- roles => [ 'Role::A', excludes_roles('Role::A') ],
- );
-} qr/^Conflict detected: Role::A excludes role 'Role::A'/;
+TODO: {
+ local $TODO = "the error message says Role::A excludes Role::A..??!";
+ throws_ok {
+ Moose::Meta::Class->create_anon_class(
+ roles => [ 'Role::A', excludes_roles('Role::A') ],
+ );
+ } qr/^Conflict detected: Moose::Meta::Role::__ANON__::SERIAL::\d+ excludes role 'Role::A'/;
+};
#lives_ok {
# Moose::Meta::Class->create_anon_class(