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

(-)a/t/db_dependent/TestBuilder.t (-1 / +4 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 41;
22
use Test::More tests => 42;
23
23
24
use Koha::Database;
24
use Koha::Database;
25
25
Lines 274-279 subtest 'Auto-increment values tests' => sub { Link Here
274
274
275
};
275
};
276
276
277
my $patron = $builder->build({ source => 'Borrower', value => { guarantorid => undef } });
278
is( $patron->{guarantorid}, undef, 'TestBuilder should not populate a value the dev would like to keep undef' );
279
277
$schema->storage->txn_rollback;
280
$schema->storage->txn_rollback;
278
281
279
1;
282
1;
(-)a/t/lib/TestBuilder.pm (-3 / +2 lines)
Lines 111-117 sub build { Link Here
111
        if( ref( $col_values->{$col_name} ) eq 'HASH' ) {
111
        if( ref( $col_values->{$col_name} ) eq 'HASH' ) {
112
            $fk_value = $col_values->{$col_name};
112
            $fk_value = $col_values->{$col_name};
113
        }
113
        }
114
        elsif( defined( $col_values->{$col_name} ) ) {
114
        elsif( exists $col_values->{$col_name} ) {
115
            next;
115
            next;
116
        }
116
        }
117
117
Lines 166-172 sub _buildColumnValues { Link Here
166
                column_name => $col_name,
166
                column_name => $col_name,
167
                value       => $original_value,
167
                value       => $original_value,
168
            });
168
            });
169
            $col_values->{$col_name} = $col_value if( defined( $col_value ) );
169
            $col_values->{$col_name} = $col_value if defined( $col_value ) or exists $original_value->{$col_name};
170
        }
170
        }
171
        $build_value = 0;
171
        $build_value = 0;
172
172
173
- 

Return to bug 16331