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