use strict; use warnings; use Test::More tests => 4; use HTML::FormFu; my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); $form->element( { type => 'Submit', name => 'foo', default => 'Foo' } ); $form->element( { type => 'Submit', name => 'bar', default => 'Bar' } ); my $foo = qq{}; my $bar = qq{}; like( $form->get_field('foo'), qr/\Q$foo/ ); like( $form->get_field('bar'), qr/\Q$bar/ ); # click 1st submit button $form->process( { foo => 'Foo', } ); # output unchanged like( $form->get_field('foo'), qr/\Q$foo/ ); like( $form->get_field('bar'), qr/\Q$bar/ );