use strict;
use warnings;

use Test::More;

eval "use JSON 2.0;";
plan skip_all => 'JSON 2.0 required for this test!' if $@;

plan tests => 2;

use Validator::Custom;

my $rule;
my $vc;
my $js;


# js_fill_form_button;
$rule = {
    name1 => 'ab',
    name2 => 'c{3}'
};
$vc = Validator::Custom->new;
$js = $vc->js_fill_form_button($rule);
like($js, qr/name1/);
like($js, qr/name2/);

# For JavaScript Test
if ($ENV{PERL5_VALIDATOR_CUSTOM_TEST}) {
    $vc = Validator::Custom->new;
    $rule = {
        "text1" => '[ab]{2}',
        "text2" => '[ab]{2}',
        "textarea1" => '[ab]{2}',
        "textarea2" => '[ab]{2}',
        "hidden1" => '[ab]{2}',
        "hidden2" => '[ab]{2}',
        "password1" => '[ab]{2}',
        "password2" => '[ab]{2}'
    };
    $js = $vc->js_fill_form_button($rule);
    
    use FindBin;
    open my $fh, '>', "$FindBin::Bin/js_fill_form_button_test.tmp"
      or die $!;
    print $fh $js;
}