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