use strict;
use warnings;
use Test::More;
use HTML::Shakan;
use CGI;
use Test::Requires 'Lingua::JA::Regular::Unicode';
subtest 'normal' => sub {
my $form = HTML::Shakan->new(
request => CGI->new({f => ' oo ', 'b' => 1}),
fields => [
TextField(
name => 'f',
required => 1,
filters => ['WhiteSpace']
),
],
);
is $form->is_valid(), 1;
is $form->param('f'), 'oo';
done_testing;
};
subtest 'multiple filters' => sub {
my $form = HTML::Shakan->new(
request => CGI->new({f => ' アイウエオaiueo ', 'b' => 1}),
fields => [
TextField(
name => 'f',
required => 1,
filters => [qw'WhiteSpace Hiragana']
),
],
);
is $form->is_valid(), 1;
is $form->param('f'), 'アイウエオaiueo';
done_testing;
};
done_testing;