use Test::Fatal;
use Test::Moose qw( with_immutable );
-use Test::More;
+use Test::More 0.88;
{
package Standard;
has 'size' => ( is => 'rw', 'init_arg' => undef );
}
-{
- local $@;
- eval q[package MyRole; use Moose::Role; use MooseX::StrictConstructor;];
- like(
- $@,
- qr/can only be applied to Moose classes/,
- "can't apply MXSC to a role"
- );
-}
-
-{
- local $@;
- eval q[package Nothing; use MooseX::StrictConstructor;];
- like(
- $@,
- qr/can only be applied to Moose classes/,
- "can't apply MXSC to a random package",
- );
-}
-
my @classes
= qw( Standard Stricter Subclass StrictSubclass OtherStrictSubclass Tricky InitArg );