1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Test;
use HTML::FormHandler::I18N;
$ENV{LANGUAGE_HANDLE} = 'en_en';
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo';
has_field 'foo_required' => ( required => 1 );
}
my $form = Test::Form->new;
ok( $form, 'got form');
my $result = $form->run( params => { foo => 'bar' } );
ok( !$result->validated, 'did not validate' );
ok( $result->field('foo_required')->has_errors, 'foo has error' );
ok( $result->has_errors, 'result has errors' );
is( $result->num_errors, 1, 'number of errors is correct' );
is_deeply( $result->errors_by_name, { foo_required => ['Foo required field is required'] },
'correct errors_by_name' );
is( $result->errors->[0], 'Foo required field is required', 'result field has error' );
is_html( $result->field('foo_required')->render, '
<div class="error">
<label for="foo_required">Foo required</label>
<input type="text" name="foo_required" id="foo_required" value="" class="error" />
<span class="error_message">Foo required field is required</span>
</div>', 'error field has error' );
my @errors = $result->form_and_field_errors;
is( scalar @errors, 1, 'one error' );
done_testing;
|
