my
$tests
= 8;
plan
tests
=>
$tests
;
my
$class
=
'HTML::FormHandler::Field::Select'
;
my
$name
= $1
if
$class
=~ /::([^:]+)$/;
use_ok(
$class
);
my
$field
=
$class
->new(
name
=>
'test_field'
,
type
=>
$name
,
);
ok(
$field
->options,
'Test for init_options failure in 0.09'
);
$field
->options([
{
value
=> 1,
label
=>
'one'
},
{
value
=> 2,
label
=>
'two'
},
{
value
=> 3,
label
=>
'three'
},
]);
ok(
defined
$field
,
'new() called'
);
$field
->input( 1 );
$field
->process;
ok( !
$field
->has_errors,
'Test for errors 1'
);
is(
$field
->value, 1,
'Test true == 1'
);
$field
->input( [1] );
$field
->process;
ok(
$field
->has_errors,
'Test for errors array'
);
$field
->input( [1,4] );
$field
->process;
ok(
$field
->has_errors,
'Test for errors 4'
);
is(
$field
->errors->[0],
'This field does not take multiple values'
,
'Error message'
);