BEGIN {
    use FindBin;
    use lib $FindBin::Bin. "/modules/";
}

use Test::More tests => 12;

package MyValAlt;

use Validation::Class;

mixin ID => {
    required   => 1,
    min_length => 1,
    max_length => 11
};

mixin TEXT => {
    required   => 1,
    min_length => 1,
    max_length => 255,
    filters    => [qw/trim strip/]
};

mixin UTEXT => {
    required   => 1,
    min_length => 1,
    max_length => 255,
    filters    => 'uppercase'
};

field id => {
    mixin => 'ID',
    label => 'Object ID',
    error => 'Object ID error'
};

field name => {
    mixin   => 'TEXT',
    label   => 'Object Name',
    error   => 'Object Name error',
    filters => ['uppercase']
};

field handle => {
    mixin   => 'UTEXT',
    label   => 'Object Handle',
    error   => 'Object Handle error',
    filters => [qw/trim strip/]
};

field email => {
    mixin      => 'TEXT',
    label      => 'Object Email',
    error      => 'Object Email error',
    max_length => 500
};

field email_confirm => {
    mixin_field => 'email',
    label       => 'Object Email Confirm',
    error       => 'Object Email confirmation error',
    min_length  => 5
};

profile email_change => sub {

    my ($self, $hash) = @_;

    $self->validate('+email', '+email_confirm');

    return $self->error_count && keys %{$hash} ? 1 : 0;

};

package main;

use MyVal;

my $v1 = MyValAlt->new(params => {});

ok $v1, 'initialization successful';
ok !$v1->validate_profile('email_change'),
  'email_change profile did not validate';
ok $v1->error_count == 2, '2 errors encountered on failure';

$v1->params->{email}         = 'abc';
$v1->params->{email_confirm} = 'abc';

ok !$v1->validate_profile('email_change'),
  'email_change profile did not validate';
ok $v1->validate_profile('email_change', {this => 'that'}),
  'email_change profile validated OK';

my $v2 = MyVal->new(params => {});

ok !$v2->validate_profile('new_ticket'), 'new_ticket profile did not validate';
ok $v2->error_count == 2, '2 errors encountered on failure';

$v2->param(name => 'the dude');

ok !$v2->validate_profile('new_ticket'), 'new_ticket profile did not validate';
ok $v2->error_count == 1, '1 errors encountered on failure';

$v2->param(description => 'the bomb dot com');

ok $v2->validate_profile('new_ticket'), 'new_ticket profile validated OK';
ok $v2->error_count == 0, 'NO errors set';

my $v3 = MyVal->new(
    params => {
        'person.name'        => 'the dude',
        'ticket.description' => 'hot diggidy dog'
    }
);

ok $v3->validate_profile('new_ticket'), 'new_ticket profile validated OK';