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;
use FindBin;
use File::Spec;
use lib File::Spec->catfile( $FindBin::Bin, 'lib' );
use utf8;

plan tests => 1 * blocks;

run {
    my $block = shift;
    my $profile = $block->profile;
    FormValidator::LazyWay->_conv_profile( undef , $profile );
    is_deeply( $profile , $block->result );
}

__END__
=== normal no stash
--- profile eval
{
    required => [qw/foo bar/],
    optional => [qw/foo bar hoge/],
    want_array => [qw/oppai/],
}
--- result eval
{
    required => {
        foo => 1,
        bar => 1,
    },
    optional => {
        foo => 1,
        bar => 1,
        hoge => 1,
    },
    want_array => {
        oppai => 1,
    },
    stash => undef,
} 

=== normal
--- profile eval
{
    required => [qw/foo bar/],
    optional => [qw/foo bar hoge/],
    want_array => [qw/oppai/],
    stash    => { foo => 'fuga' },
}
--- result eval
{
    required => {
        foo => 1,
        bar => 1,
    },
    optional => {
        foo => 1,
        bar => 1,
        hoge => 1,
    },
    want_array => {
        oppai => 1,
    },
    stash => {
        foo => 'fuga',
    },
}