use Test::Fatal

[gitmo/MooseX-StrictConstructor.git] / t / instance.t

use strict;
use warnings;

use Test::More;
use Test::Moose qw( with_immutable );
use Test::Fatal;

{
    package Foo;
    use Moose;
    use MooseX::StrictConstructor;
}

with_immutable {
    is(
        exception { Foo->new( __INSTANCE__ => Foo->new ) },
        undef,
        '__INSTANCE__ is ignored when passed to ->new',
    );

    is(
        exception { Foo->meta->new_object( __INSTANCE__ => Foo->new ) },
        undef,
        '__INSTANCE__ is ignored when passed to ->new_object',
    );
}
'Foo';

done_testing();