use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
{
package Bar;
use Moose;
- ::ok ! ::exception {
+ ::lives_ok {
has 'bar' => (metaclass => 'Bar::Meta::Attribute');
- }, '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves';
+ } '... the attribute metaclass need not be a Moose::Meta::Attribute as long as it behaves';
}
{
package Another::Foo;
use Moose;
- ::ok ! ::exception {
+ ::lives_ok {
has 'foo' => (metaclass => 'Foo');
- }, '... the attribute metaclass alias worked correctly';
+ } '... the attribute metaclass alias worked correctly';
- ::ok ! ::exception {
+ ::lives_ok {
has 'bar' => (metaclass => 'Bar', is => 'bare');
- }, '... the attribute metaclass alias worked correctly';
+ } '... the attribute metaclass alias worked correctly';
}
{