package Foo::Class;
use Moose;
{ our $TODO; local $TODO = "role accessors don't satisfy other role requires";
- ::ok ! ::exception { with 'Foo' }, 'requirements are satisfied properly';
+ ::is( ::exception { with 'Foo' }, undef, 'requirements are satisfied properly' );
}
}
use Moose;
{ our $TODO; local $TODO = "role accessors don't satisfy other role requires";
- ::ok ! ::exception { with qw(Bar Baz) }, 'requirements are satisfied properly';
+ ::is( ::exception { with qw(Bar Baz) }, undef, 'requirements are satisfied properly' );
}
}