use strict;
use warnings;
-use Test::Exception;
+use Test::Fatal;
use Test::More;
use Test::Requires {
use Moose;
- ::lives_and(
+ ::is( ::exception (
sub {
::stderr_like{ has foo => (
traits => ['String'],
isa => 'Str',
);
}
- qr{\QAllowing a native trait to automatically supply a default is deprecated. You can avoid this warning by supply a default, builder, or making the attribute required at t/010_basics/030_deprecations.t line},
+ qr{\QAllowing a native trait to automatically supply a default is deprecated. You can avoid this warning by supplying a default, builder, or making the attribute required at t/010_basics/030_deprecations.t line},
'Not providing a default for native String trait warns';
::stderr_is{ has bar => (
::stderr_like{ with 'Role' =>
{ excludes => ['thing'], alias => { thing => 'thing2' } };
}
- qr/\QThe alias and excludes options for role application have been renamed -alias and -excludes (applying Role to Foo - do you need to upgrade Foo?)/,
+ qr/\QThe alias and excludes options for role application have been renamed -alias and -excludes (Foo is consuming Role - do you need to upgrade Foo?)/,
'passing excludes or alias with a leading dash warns';
::ok(
!Foo->meta->has_method('thing'),
Foo->meta->has_method('thing2'),
'thing2 method is created as alias in role application'
);
- } );
- }
+ }
+ ), undef );
+}
{
package Pack1;
use Moose;
- ::lives_and(
+ ::is( ::exception (
sub {
::stderr_is{ has foo => (
traits => ['String'],
::stderr_is{ Pack1->new->_bar } q{},
'Providing a reader for a String trait avoids default is warning';
}
- );
+ ), undef );
sub _build_foo { q{} }
}
use Moose;
- ::lives_and(
+ ::is( ::exception (
sub {
::stderr_is{ has foo => (
traits => ['String'],
q{},
'Providing a writer for a String trait avoids default is warning';
}
+ ), undef );
}
{
use Moose;
- ::lives_and(
+ ::is( ::exception (
sub {
::stderr_is{ has foo => (
traits => ['String'],
q{},
'Providing a accessor for a String trait avoids default is warning';
}
- );
+ ), undef );
sub _build_foo { q{} }
}