use FindBin;
use File::Spec;
use lib File::Spec->catfile( $FindBin::Bin, 'lib' );
use utf8;
use FormValidator::LazyWay::Rule::String;
use MyTestBase;
plan tests => 1 * blocks;
run {
my $block = shift;
my $result = FormValidator::LazyWay::Rule::String::nonsymbol_ascii( $block->value, $block->args );
is( $result, $block->result );
}
__END__
=== alphabets
--- value chomp
abcdefg
--- result chomp
1
=== numbers
--- value chomp
12345467
--- result chomp
1
=== numbers and alphabets
--- value chomp
vkgtaro1977
--- result chomp
1
=== anderscore
--- value chomp
vkgtaro_1977
--- args yaml
allow:
- '_'
--- result chomp
1
=== hyphen
--- value chomp
vkgtaro-1977
--- args yaml
allow:
- '-'
--- result chomp
1
=== simbols
--- value chomp
!"#$%&'()-=~|,./_<>?;:]+*}@[`{
--- result chomp
0
=== multibyte
--- value chomp
ほげらほげら
--- result chomp
0