The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;
use FormValidator::LazyWay::Rule::String;
use utf8;

plan tests => 1 * blocks;

run {
    my $block  = shift;
    my $result = FormValidator::LazyWay::Rule::String::ascii( $block->value );
    is( $result, $block->result );
}

__END__

=== alphabets
--- value  chomp
abcdefg
--- result chomp
1
=== numbers
--- value  chomp
12345467
--- result chomp
1
=== simbols
--- value  chomp
!"#$%&'()-=~|,./_<>?;:]+*}@[`{
--- result chomp
1
=== multibyte
--- value  chomp
ほげらほげら
--- result chomp
0