use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Test;
use HTML::FormHandler::Field::Text;
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
with 'HTML::FormHandler::Render::Simple';
sub build_do_form_wrapper { 1 }
sub build_form_wrapper_class { 'form_wrapper' }
has '+name' => ( default => 'testform' );
has_field 'test_field' => (
element_class => 'test123',
size => 20,
label => 'TEST',
id => 'f99',
);
has_field 'number';
has_field 'fruit' => ( type => 'Select' );
has_field 'cheese' => ( type => 'Select' );
has_field 'vegetables' => ( type => 'Multiple' );
has_field 'grains' => ( type => 'Multiple' );
has_field 'opt_in' => ( type => 'Select', widget => 'RadioGroup',
options => [{ value => 0, label => 'No'}, { value => 1, label => 'Yes'} ] );
has_field 'starch' => ( type => 'Multiple', widget => 'CheckboxGroup',
options => [{ value => 1, label => 'One'}, { value => 2, label => 'Two'},
{ value => 3, label => 'Three' },
] );
has_field 'active' => ( type => 'Checkbox' );
has_field 'comments' => ( type => 'TextArea', cols => 40, rows => 3 );
has_field 'hidden' => ( type => 'Hidden' );
has_field 'selected' => ( type => 'Boolean' );
has_field 'start_date' => ( type => 'DateTime', do_wrapper => 1,
tags => { wrapper_tag => 'fieldset' },
wrapper_attr => { class => 'start_date' },
);
has_field 'start_date.month' => ( type => 'Integer', range_start => 1,
range_end => 12 );
has_field 'start_date.day' => ( type => 'Integer', range_start => 1,
range_end => 31 );
has_field 'start_date.year' => ( type => 'Integer', range_start => 2000,
range_end => 2020 );
has_field 'two_errors' => (
apply => [
{ check => [ ], message => 'First constraint error' },
{ check => [ ], message => 'Second constraint error' }
]
);
has_field 'submit' => ( type => 'Submit', value => 'Update' );
has '+dependency' => ( default => sub { [ ['start_date.month',
'start_date.day', 'start_date.year'] ] } );
has_field 'no_render' => ( widget => 'NoRender' );
sub options_fruit {
return (
1 => 'apples',
2 => 'oranges',
3 => 'kiwi',
);
}
sub options_vegetables {
return (
1 => 'lettuce',
2 => 'broccoli',
3 => 'carrots',
4 => 'peas',
);
}
sub options_grains {
return [
{ value => 1, label => 'maize', disabled => 0 },
{ value => 2, label => 'rice', disabled => 1 },
{ value => 3, label => 'wheat' },
];
}
sub options_cheese {
return [
{ value => 1, label => 'canastra', disabled => 0 },
{ value => 2, label => 'brie', disabled => 1 },
{ value => 3, label => 'gorgonzola' },
];
}
sub html_attributes {
my ( $self, $field, $type, $attr ) = @_;
$attr->{class} = 'label' if $type eq 'label';
return $attr;
}
}
my $form = Test::Form->new;
ok( $form, 'create form');
my $params = {
test_field => 'something',
number => 0,
fruit => 2,
vegetables => [2,4],
active => 'now',
comments => 'Four score and seven years ago...',
hidden => '1234',
selected => '1',
'start_date.month' => '7',
'start_date.day' => '14',
'start_date.year' => '2006',
two_errors => 'aaa',
opt_in => 0,
};
$form->process( $params );
is_deeply( $form->field('starch')->input_without_param, [], 'checkbox group settings' );
is( $form->field('starch')->not_nullable, 1, 'checkbox group settings' );
is_deeply( $form->value->{starch}, [], 'checkbox group value' );
is_html( $form->render_field( $form->field('number') ),
'
<div><label class="label" for="number">Number</label><input type="text" name="number" id="number" value="0" />
</div>',
"value '0' is rendered"
);
my $output1 = $form->render_field( $form->field('test_field') );
is_html( $output1,
'
<div><label class="label" for="f99">TEST</label><input type="text" name="test_field" id="f99" size="20" value="something" class="test123" />
</div>',
'output from text field');
my $output2 = $form->render_field( $form->field('fruit') );
is_html( $output2,
'
<div><label class="label" for="fruit">Fruit</label><select name="fruit" id="fruit"><option value="1" id="fruit.0">apples</option><option value="2" id="fruit.1" selected="selected">oranges</option><option value="3" id="fruit.2">kiwi</option></select>
</div>',
'output from select field');
my $output12 = $form->render_field( $form->field('cheese') );
is_html( $output12,
'
<div><label class="label" for="cheese">Cheese</label><select name="cheese" id="cheese"><option value="1" id="cheese.0">canastra</option><option value="2" id="cheese.1" disabled="disabled">brie</option><option value="3" id="cheese.2">gorgonzola</option></select>
</div>',
'output from select field with disabled option');
my $output3 = $form->render_field( $form->field('vegetables') );
is_html( $output3,
'
<div><label class="label" for="vegetables">Vegetables</label><select name="vegetables" id="vegetables" multiple="multiple" size="5"><option value="1" id="vegetables.0">lettuce</option><option value="2" id="vegetables.1" selected="selected">broccoli</option><option value="3" id="vegetables.2">carrots</option><option value="4" id="vegetables.3" selected="selected">peas</option></select>
</div>',
'output from select multiple field');
my $output13 = $form->render_field( $form->field('grains') );
is_html( $output13,
'
<div><label class="label" for="grains">Grains</label><select name="grains" id="grains" multiple="multiple" size="5"><option value="1" id="grains.0">maize</option><option value="2" id="grains.1" disabled="disabled">rice</option><option value="3" id="grains.2">wheat</option></select>
</div>',
'output from select multiple field with disabled option');
my $output4 = $form->render_field( $form->field('active') );
is_html( $output4,
'
<div><label class="label" for="active">Active</label><input type="checkbox" name="active" id="active" value="1" />
</div>',
'output from checkbox field');
my $output5 = $form->render_field( $form->field('comments') );
is_html( $output5,
'
<div><label class="label" for="comments">Comments</label><textarea name="comments" id="comments" rows="3" cols="40">Four score and seven years ago...</textarea>
</div>',
'output from textarea' );
my $output6 = $form->render_field( $form->field('hidden') );
is_html( $output6,
'<div><input type="hidden" name="hidden" id="hidden" value="1234" /></div>',
'output from hidden field' );
my $output7 = $form->render_field( $form->field('selected') );
is_html( $output7,
'
<div><label class="label" for="selected">Selected</label><input type="checkbox" name="selected" id="selected" value="1" checked="checked" />
</div>',
'output from boolean' );
my $output8 = $form->render_field( $form->field('start_date') );
is_html( $output8,
'
<fieldset class="start_date" id="start_date"><legend>Start date</legend>
<div><label class="label" for="start_date.month">Month</label><input type="text" name="start_date.month" id="start_date.month" size="8" value="7" />
</div>
<div><label class="label" for="start_date.day">Day</label><input type="text" name="start_date.day" id="start_date.day" size="8" value="14" />
</div>
<div><label class="label" for="start_date.year">Year</label><input type="text" name="start_date.year" id="start_date.year" size="8" value="2006" />
</div>
</fieldset>',
'output from DateTime' );
my $output9 = $form->render_field( $form->field('submit') );
is_html( $output9, '
<div><input type="submit" name="submit" id="submit" value="Update" />
</div>', 'output from Submit');
my $output10 = $form->render_field( $form->field('opt_in') );
is_html( $output10, '
<div><label class="label" for="opt_in">Opt in</label> <br /><label for="opt_in.0"><input type="radio" value="0" name="opt_in" id="opt_in.0" checked="checked" />No</label><br /><label for="opt_in.1"><input type="radio" value="1" name="opt_in" id="opt_in.1" />Yes</label><br />
</div>', 'output from radio group' );
my $output11 = $form->render_start;
is_html( $output11,
'<form id="testform" method="post"><fieldset class="form_wrapper">',
'Form start OK' );
my $output = $form->render;
ok( $output, 'get rendered output from form');
is_html( $form->render_field( $form->field('no_render')), '', 'no_render' );
done_testing;