The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::Exception;
use Test::More;

use Fey::ORM::Mock::Action;

{

    package Foo;

    use Moose;
}

{
    my $insert = Fey::ORM::Mock::Action->new_action(
        action => 'insert',
        class  => 'Foo',
        values => {},
    );

    ok(
        $insert->is_insert(),
        'is_insert is true for insert'
    );
    ok(
        !$insert->is_update(),
        'is_update is false for insert'
    );
    ok(
        !$insert->is_delete(),
        'is_delete is false for insert'
    );
}

{
    my $update = Fey::ORM::Mock::Action->new_action(
        action => 'update',
        class  => 'Foo',
        pk     => {},
        values => {},
    );

    ok(
        !$update->is_insert(),
        'is_insert is flase for update'
    );
    ok(
        $update->is_update(),
        'is_update is true for update'
    );
    ok(
        !$update->is_delete(),
        'is_delete is false for update'
    );
}

{
    my $delete = Fey::ORM::Mock::Action->new_action(
        action => 'delete',
        class  => 'Foo',
        pk     => {},
    );

    ok(
        !$delete->is_insert(),
        'is_insert is flase for delete'
    );
    ok(
        !$delete->is_update(),
        'is_update is false for delete'
    );
    ok(
        $delete->is_delete(),
        'is_delete is true for delete'
    );
}

done_testing();