use strict; use warnings; use Test::More tests => 1; use HTML::FormFu; use lib 't/lib'; use DBICTestLib 'new_schema'; use MySchema; my $form = HTML::FormFu->new; $form->load_config_file('t/options_from_model/belongs_to_config_zero_combobox.yml'); my $schema = new_schema(); $form->stash->{schema} = $schema; my $type_rs = $schema->resultset('Type'); my $type2_rs = $schema->resultset('Type2'); { # types $type_rs->delete; $type_rs->create( { type => 'type 1' } ); $type_rs->create( { type => 'type 2' } ); $type_rs->create( { type => 'type 3' } ); $type2_rs->delete; $type2_rs->create( { type => 'type 1' } ); $type2_rs->create( { type => 'type 2' } ); $type2_rs->create( { type => 'type 3' } ); } $form->process; # options() isn't set, because we explicitly set options_from_model to 0 { my $option = $form->get_field('type')->options; is( scalar @$option, 0 ); }