use FindBin;
use File::Spec;
use lib File::Spec->catfile( $FindBin::Bin, 'lib' );
use utf8;
use FormValidator::LazyWay::Rule::Japanese;
use MyTestBase;
plan tests => 1 * blocks;
run {
my $block = shift;
my $result = FormValidator::LazyWay::Rule::Japanese::katakana( $block->value, $block->args );
is( $result, $block->result );
}
__END__
=== ok
--- value chomp
アイウエオ
--- args eval
{}
--- result chomp
1
=== ok
--- value chomp
ヴ
--- args eval
{}
--- result chomp
1
=== space ok
--- value chomp
アイウ エオ
--- args yaml
allow:
- ' '
--- result chomp
1
=== space ok
--- value chomp
アイ ウエオ
--- args yaml
allow:
- ' '
--- result chomp
1
=== KATAKANA-HIRAGANA PROLONGED SOUND MARK ok
--- value chomp
ウッウー
--- args yaml
allow:
- ー
--- result chomp
1
=== numbers not ok
--- value chomp
1234567890
--- args yaml
allow:
--- result chomp
0
=== katakana not ok
--- value chomp
あいうえお
--- args eval
{}
--- result chomp
0
=== katakana not ok
--- value chomp
寺西
--- args eval
{}
--- result chomp
0
=== not ok
--- value chomp
123 44567
--- args eval
{}
--- result chomp
0
=== regex space ok
--- value chomp
アイウ エオ
--- args yaml
allow:
- '\s+'
--- result chomp
1