use strict;
use warnings;
use Test::More;

# required_when test
{
    package MyApp::Form::Test;
    use Moo;
    use Data::MuForm::Meta;
    extends 'Data::MuForm';

    has_field 'fee';
    has_field 'fie' => ( required_when => { 'fee' => 2 } );

}

my $form = MyApp::Form::Test->new;
my $params = { fee => 1, fie => '' };
$form->process( $params );
ok( $form->validated );
$params = { fee => 2, fie => '' };
$form->process( $params );
ok( ! $form->validated, 'did not validate when fee is 2' );

# required when the other field isn't empty
{
    package MyApp::Form::Test2;
    use Moo;
    use Data::MuForm::Meta;
    extends 'Data::MuForm';

    has_field 'fee';
    has_field 'fie' => ( required_when => { 'fee' => sub { $_[0] ne '' } } );

}

$form = MyApp::Form::Test2->new;
$params = { fee => '', fie => '' };
$form->process( $params );
ok( $form->validated );
$params = { fee => 2, fie => '' };
$form->process( $params );
ok( ! $form->validated, 'did not validate when fee is 2' );

# handle required when value of '0'
{
    package MyApp::Form::Test3;
    use Moo;
    use Data::MuForm::Meta;
    extends 'Data::MuForm';

    has_field 'fee';
    has_field 'fie' => ( required_when => { 'fee' => 0 } );

}
$form = MyApp::Form::Test3->new;
$params = { fee => 0, fie => '' };
$form->process( $params );
ok( !$form->validated );
$params = { fee => 1, fie => '' };
$form->process( $params );
ok( $form->validated );

done_testing;
