1use strict; 2use warnings; 3 4use Test::More tests => 6; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new; 9 10$form->element('Text')->name('foo'); 11$form->element('Text')->name('bar'); 12 13# NOT SUBMITTED 14{ 15 ok( !$form->submitted ); 16} 17 18# NO INDICATOR, SUBMITTED 19{ 20 $form->process( 21 { foo => 'yada', 22 bar => '23', 23 } ); 24 25 ok( $form->submitted ); 26} 27 28# NO INDICATOR, UNKNOWN PARAM, NOT SUBMITTED 29{ 30 $form->process( { unknown => 1, } ); 31 32 ok( !$form->submitted ); 33} 34 35# NAMED INDICATOR, SUBMITTED 36{ 37 $form->indicator('foo'); 38 39 $form->process( 40 { foo => 'yada', 41 bar => '23', 42 } ); 43 44 ok( $form->submitted ); 45} 46 47# NAMED INDICATOR, UNKNOWN PARAM, NOT SUBMITTED 48{ 49 $form->indicator('foo'); 50 51 $form->process( { unknown => 1, } ); 52 53 ok( !$form->submitted ); 54} 55 56# CODE-REF INDICATOR, SUBMITTED 57{ 58 $form->indicator( sub { return 1 } ); 59 60 $form->process( {} ); 61 62 ok( $form->submitted ); 63} 64