File: filter.t

package info (click to toggle)
libhtml-formfu-perl 0.09007-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,184 kB
  • sloc: perl: 13,186; makefile: 9; sql: 5
file content (40 lines) | stat: -rw-r--r-- 858 bytes parent folder | download | duplicates (4)
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} ) );