use strict; use warnings; use Test::More tests => 8; use HTML::FormFu; my $form = HTML::FormFu->new; $form->load_config_file( 't/constraints/constraint_when_default_empty_value.yml'); # valid - foo Checkbox missing - bar is required { $form->process( { bar => '42', } ); ok( $form->submitted_and_valid ); is( $form->param_value('bar'), 42 ); } # valid - foo Checkbox present - bar optional { $form->process( { foo => '1', } ); ok( $form->submitted_and_valid ); is( $form->param_value('foo'), 1 ); } # valid - foo Checkbox present - bar optional { $form->process( { foo => '1', bar => '42', } ); ok( $form->submitted_and_valid ); is( $form->param_value('foo'), 1 ); is( $form->param_value('bar'), 42 ); } # invalid - foo Checkbox missing - bar required { $form->process( { bar => '', } ); ok( !$form->submitted_and_valid ); }