1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
use strict;
use warnings;
use Test::More tests => 6;
use HTML::FormFu;
my $form = HTML::FormFu->new;
$form->element('Text')->name('foo');
$form->element('Text')->name('bar');
$form->element('Text')->name('bif')->constraint('Number');
$form->filter( {
type => 'HTMLEscape',
names => [qw/ bar bif /],
} );
my $original_foo = qq{escape "this"};
my $original_bar = qq{escape "that"};
my $escaped_bar = qq{escape "that"};
$form->process( {
foo => $original_foo,
bar => $original_bar,
bif => "not a number",
} );
# foo isn't quoted
is( $form->param('foo'), $original_foo );
is( $form->params->{foo}, $original_foo );
# bar
is( $form->param('bar'), $escaped_bar );
is( $form->params->{bar}, $escaped_bar );
# bif
ok( !defined( $form->param('bif') ) );
ok( !defined( $form->params->{bif} ) );
|