use Test::More  tests => 2;
use HTML::FormHandler::Field::Text;
use HTML::FormHandler::Field;
{
   package My::Form;
   use HTML::FormHandler::Moose;
   extends 'HTML::FormHandler';
   has '+name' => ( default => 'testform' );
   sub field_list {
       {
           fields    => {
               meat        => 'Text',
               starch      => { required => 1 },
               fruit       => 'Select',
           },
       }
   }
   sub options_fruit {
       return (
           1   => 'apples',
           2   => 'oranges',
           3   => 'kiwi',
       );
   }
}
my $form = My::Form->new;
ok( $form, 'get form' );
my $field = HTML::FormHandler::Field::Text->new( name => 'Testfield' );
$form->add_field($field);
ok( $form->field_exists('Testfield'), 'form now has test field' );