use Test::More tests => 9;

package MyVal;

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

package main;

my $v = MyVal->new(params => {name => ' p3rlc0dr    '});
ok $v, 'initialization successful';
ok $v->fields->{email}->{max_length} == 500,
  'email max_length mixin overridden';

ok $v->fields->{email_confirm}->{required}, 'email_confirm required ok';
ok $v->fields->{email_confirm}->{min_length} == 5,
  'email_confirm min_length ok';
ok $v->fields->{email_confirm}->{max_length} == 500,
  'email_confirm max_length ok';
ok $v->fields->{email_confirm}->{label} eq 'Object Email Confirm',
  'email_confirm label ok';
ok $v->fields->{email_confirm}->{error} eq 'Object Email confirmation error',
  'email_confirm error ok';
ok $v->params->{name} =~ /^P3RLC0DR$/,
  'trim, strip and uppercase filters all applied';

my $w = MyVal->new(params => {name => ' p3rlc0dr    '});
ok $w->params->{name} =~ /^P3RLC0DR$/,
  'trim, strip and uppercase filters all applied';