Require Dist::Zilla 4.200016+

[gitmo/Moose.git] / t / native_traits / array_trigger.t

use strict;
use warnings;

use Test::More;

{
    package Foo;
    use Moose;

    our @TriggerArgs;

    has array => (
        traits  => ['Array'],
        is      => 'rw',
        isa     => 'ArrayRef',
        handles => {
            push_array => 'push',
            set_array  => 'set',
        },
        clearer => 'clear_array',
        trigger => sub { @TriggerArgs = @_ },
    );
}

my $foo = Foo->new;

{
    $foo->array( [ 1, 2, 3 ] );

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, [ 1, 2, 3 ] ],
        'trigger was called for normal writer'
    );

    $foo->push_array(5);

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, [ 1, 2, 3, 5 ], [ 1, 2, 3 ] ],
        'trigger was called on push'
    );

    $foo->set_array( 1, 42 );

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, [ 1, 42, 3, 5 ], [ 1, 2, 3, 5 ] ],
        'trigger was called on set'
    );
}

done_testing;