1use strict; 2use warnings; 3 4use Test::More tests => 1; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new; 9 10$form->element('Text')->name('foo'); 11$form->element('Text')->name('bar'); 12$form->element('Text')->name('baz'); 13$form->element('Text')->name('bif'); 14$form->element('Text')->name('bom'); 15 16$form->constraint('SingleValue'); 17 18$form->process( 19 { foo => 1, 20 bar => '', 21 baz => [2], 22 bif => [ 3, 4 ], 23 } ); 24 25is_deeply( [ $form->has_errors ], ['bif'] ); 26 27