use Test::More tests => 3;
use_ok( 'HTML::FormHandler' );
{
   package My::Form;
   use Moose;
   extends 'HTML::FormHandler';
   sub field_list {
       return {
           fields    => [
               field_one => 'Text',
               field_two => 'Text',
               field_three => 'Text',
               field_four => 'Text',
               field_five => 'Text',
           ],
       };
   }
}
my $form = My::Form->new;
is( $form->field('field_one')->order, 1, 'first field order');
is( $form->field('field_five')->order, 5, 'last field order');