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

(-)a/t/db_dependent/Acquisition/FillWithDefaultValues.t (-2 / +8 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 5;
2
use Test::More tests => 6;
3
use Test::MockModule;
3
use Test::MockModule;
4
4
5
use MARC::Record;
5
use MARC::Record;
Lines 90-92 is_deeply( Link Here
90
    [ [ 'x', $default_x ] ],
90
    [ [ 'x', $default_x ] ],
91
    '099$x contains the default value'
91
    '099$x contains the default value'
92
);
92
);
93
- 
93
94
# Test controlfield default
95
$record->field('008')->update( undef );
96
C4::Acquisition::FillWithDefaultValues($record);
97
is( $record->field('008')->data, $default_x, 'Controlfield got default' );
98
99
$schema->storage->txn_rollback;

Return to bug 24294