View | Details | Raw Unified | Return to bug 15339
Collapse All | Expand All

(-)a/t/db_dependent/TestBuilder.t (-1 / +1 lines)
Lines 397-403 subtest '->build parameter' => sub { Link Here
397
    warnings_are {
397
    warnings_are {
398
        $builder->build({
398
        $builder->build({
399
            source => 'Branch',
399
            source => 'Branch',
400
            values => {
400
            value => {
401
                branchcode => 'BRANCH_1'
401
                branchcode => 'BRANCH_1'
402
            }
402
            }
403
        })
403
        })
(-)a/t/lib/TestBuilder.pm (-2 / +1 lines)
Lines 89-95 sub build { Link Here
89
    my $source  = $params->{source} || return;
89
    my $source  = $params->{source} || return;
90
    my $value   = $params->{value};
90
    my $value   = $params->{value};
91
91
92
    my @unknowns = grep( !/source|value|only_fk/, keys %{ $params });
92
    my @unknowns = grep( !/^(source|value)$/, keys %{ $params });
93
    carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns;
93
    carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns;
94
94
95
    my $col_values = $self->_buildColumnValues({
95
    my $col_values = $self->_buildColumnValues({
96
- 

Return to bug 15339