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
|
use strict;
use warnings;
use Test::More;
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
sub build_messages {
{
required => 'You must supply this field',
}
}
has_field 'foo' => ( type => 'Text', required => 1 );
has_field 'bar';
}
my $form = Test::Form->new;
ok( $form, 'form built');
$form->process( params => { bar => 1} );
my @errors = $form->errors;
is( $errors[0], 'You must supply this field', 'form has errors' );
done_testing;
|
