Require Dist::Zilla 4.200016+

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

use strict;
use warnings;

use Test::More;

{

    package Foo;
    use Moose;

    our @TriggerArgs;

    has hash => (
        traits  => ['Hash'],
        is      => 'rw',
        isa     => 'HashRef',
        handles => {
            delete_key => 'delete',
            set_key    => 'set',
        },
        clearer => 'clear_key',
        trigger => sub { @TriggerArgs = @_ },
    );
}

my $foo = Foo->new;

{
    $foo->hash( { x => 1, y => 2 } );

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, { x => 1, y => 2 } ],
        'trigger was called for normal writer'
    );

    $foo->set_key( z => 5 );

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, { x => 1, y => 2, z => 5 }, { x => 1, y => 2 } ],
        'trigger was called on set'
    );

    $foo->delete_key('y');

    is_deeply(
        \@Foo::TriggerArgs,
        [ $foo, { x => 1, z => 5 }, { x => 1, y => 2, z => 5 } ],
        'trigger was called on delete'
    );
}

done_testing;