use
strict;
use
warnings;
my
$class
=
'HTML::FormHandler::Field::TextArea'
;
use_ok(
$class
);
my
$field
=
$class
->new(
name
=>
'comments'
,
cols
=> 40,
rows
=> 3 );
ok(
$field
,
'get TextArea field'
);
$field
->input(
"Testing, testing, testing... This is a test"
);
$field
->process;
ok( !
$field
->has_errors,
'field has no errors'
);