my
$form
= HTML::FormFu->new->localize_class(
'HTMLFormFu::I18N'
);
$form
->element(
'Text'
)->name(
'foo'
);
$form
->element(
'Text'
)->name(
'bar'
);
$form
->validator(
'+HTMLFormFu::MyValidator'
);
{
$form
->process( {
foo
=>
'aaa'
,
bar
=>
'bbbbbbb'
,
} );
ok(
$form
->valid(
'foo'
),
'foo valid'
);
ok(
$form
->valid(
'bar'
),
'bar valid'
);
}
{
$form
->process( {
foo
=>
'aaa'
,
bar
=>
'foo'
,
} );
ok(
$form
->valid(
'foo'
),
'foo valid'
);
ok( !
$form
->valid(
'bar'
),
'bar not valid'
);
my
(
$error
) = @{
$form
->get_errors };
is(
$error
->class,
'error_validator_htmlformfu_myvalidator'
);
is(
$error
->type,
'HTMLFormFu::MyValidator'
);
is(
$error
->message,
'myvalidator error!'
);
}