view release on metacpan or  search on metacpan

t/update/belongs_to_combobox.t  view on Meta::CPAN

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/belongs_to_lookup_table_combobox.yml');

my $schema = new_schema();

$form->stash->{schema} = $schema;

my $rs = $schema->resultset('Master');

# filler rows
{
    # insert some entries we'll ignore, so our rels don't have same ids
    $rs->create( { id => 1 } );
    $rs->create( { id => 2 } );
}

{
    # master 3
    my $master = $rs->create( {
            text_col => 'b',
            type_id  => 2,
            type2_id => 2,
    } );

    # Fake submitted form
    $form->process( {
            "id"       => 3,
            "text_col" => 'a',
            'type_select'  => '1',
            'type2_id' => '1',
        } );

    $form->model->update($master);
}

{
    my $row = $rs->find(3);

    is( $row->type->id, '1' );
    is( $row->type2->id, '1' );

}