1use strict; 2use warnings; 3use Test::More; 4 5{ 6 package Test::Form; 7 use HTML::FormHandler::Moose; 8 extends 'HTML::FormHandler'; 9 10 sub build_messages { 11 { 12 required => 'You must supply this field', 13 } 14 } 15 has_field 'foo' => ( type => 'Text', required => 1 ); 16 has_field 'bar'; 17} 18 19my $form = Test::Form->new; 20ok( $form, 'form built'); 21$form->process( params => { bar => 1} ); 22my @errors = $form->errors; 23is( $errors[0], 'You must supply this field', 'form has errors' ); 24 25done_testing; 26