From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
use Test::More tests => 9;
use lib 't/lib';
use DBICTestLib 'new_schema';
my $form = HTML::FormFu->new;
$form->load_config_file('t/update/has_many_repeatable_new_implicit.yml');
# config file doesn't set 'new_rows_max' so 'empty_rows' is used instead
my $schema = new_schema();
my $master = $schema->resultset('Master')->create({ id => 1 });
# filler rows
{
# user 1
my $u1 = $master->create_related( 'user', { name => 'foo' } );
# address 1
$u1->create_related( 'addresses' => { address => 'somewhere' } );
}
# rows we're going to use
{
# user 2
my $u2 = $master->create_related( 'user', { name => 'nick', } );
# address 2
$u2->create_related( 'addresses', { address => 'home' } );
# address 3
$u2->create_related( 'addresses', { address => 'office' } );
}
{
$form->process( {
'id' => 2,
'name' => 'new nick',
'count' => 3,
'addresses_1.id' => 2,
'addresses_1.address' => 'new home',
'addresses_2.id' => 3,
'addresses_2.address' => 'new office',
'addresses_3.id' => '',
'addresses_3.address' => 'new address',
} );
ok( $form->submitted_and_valid );
my $row = $schema->resultset('User')->find(2);
$form->model->update($row);
}
{
my $user = $schema->resultset('User')->find(2);
is( $user->name, 'new nick' );
my @add = $user->addresses->all;
is( scalar @add, 3 );
is( $add[0]->id, 2 );
is( $add[0]->address, 'new home' );
is( $add[1]->id, 3 );
is( $add[1]->address, 'new office' );
is( $add[2]->id, 4 );
is( $add[2]->address, 'new address' );
}