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; |