use strict; use warnings; use Test::More tests => 2; use HTML::FormFu; use lib 't/lib'; use DBICTestLib 'new_schema'; use MySchema; my $form = HTML::FormFu->new; $form->load_config_file('t/default_values/multi_label.yml'); my $schema = new_schema(); my $master = $schema->resultset('Master')->create({ id => 1 }); # filler row $master->create_related( 'user', { name => 'foo', } ); # row we're going to use $master->create_related( 'user', { title => 'mr', name => 'billy bob', } ); { my $row = $schema->resultset('User')->find(2); $form->model->default_values($row); my $multi = $form->get_element({ type => 'Multi' }); is( $multi->render_data->{label}, 'mr' ); my $name = $multi->get_field('name')->render_data; is( $name->{value}, 'billy bob' ); }