1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use warnings;
use Encode;
use Test::More tests => 2;
use HTML::FormFu;
my $form = HTML::FormFu->new;
$form->element('Text')->name('foo')->filter('Encode')
->candidates(qw(euc-jp sjis jis))->encode_to('euc-jp');
my $utf8_foo
= decode_utf8('エイチティーエムエル::フォームフー');
my $original_foo = encode( 'sjis', $utf8_foo );
my $filtered_foo = encode( 'euc-jp', $utf8_foo );
$form->process( { foo => $original_foo, } );
# foo is filtered
is( decode( 'euc-jp', $form->param('foo') ), $utf8_foo, 'foo filtered' );
is( decode( 'euc-jp', $form->params->{foo} ), $utf8_foo, 'foo filtered' );
|
