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';