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

(-)a/t/lib/TestBuilder.pm (-5 / +4 lines)
Lines 404-409 sub _buildColumnValue { Link Here
404
            return;
404
            return;
405
        }
405
        }
406
        # otherwise: no need to assign a value
406
        # otherwise: no need to assign a value
407
    } elsif( exists $self->{default_values}{$source}{$col_name} ) {
408
        my $v = $self->{default_values}{$source}{$col_name};
409
        $v = &$v() if ref($v) eq 'CODE';
410
        push @$retvalue, $v;
407
    } elsif( $col_info->{is_foreign_key} || _should_be_fk($source,$col_name) ) {
411
    } elsif( $col_info->{is_foreign_key} || _should_be_fk($source,$col_name) ) {
408
        if( exists $value->{$col_name} ) {
412
        if( exists $value->{$col_name} ) {
409
            if( !defined $value->{$col_name} && !$col_info->{is_nullable} ) {
413
            if( !defined $value->{$col_name} && !$col_info->{is_nullable} ) {
Lines 427-436 sub _buildColumnValue { Link Here
427
            return;
431
            return;
428
        }
432
        }
429
        push @$retvalue, $value->{$col_name};
433
        push @$retvalue, $value->{$col_name};
430
    } elsif( exists $self->{default_values}{$source}{$col_name} ) {
431
        my $v = $self->{default_values}{$source}{$col_name};
432
        $v = &$v() if ref($v) eq 'CODE';
433
        push @$retvalue, $v;
434
    } else {
434
    } else {
435
        my $data_type = $col_info->{data_type};
435
        my $data_type = $col_info->{data_type};
436
        $data_type =~ s| |_|;
436
        $data_type =~ s| |_|;
437
- 

Return to bug 32353