|
Lines 336-344
subtest 'Default values' => sub {
Link Here
|
| 336 |
plan tests => 2; |
336 |
plan tests => 2; |
| 337 |
$builder = t::lib::TestBuilder->new; |
337 |
$builder = t::lib::TestBuilder->new; |
| 338 |
my $item = $builder->build( { source => 'Item' } ); |
338 |
my $item = $builder->build( { source => 'Item' } ); |
| 339 |
is( $item->{more_subfields_xml}, undef ); |
339 |
is( $item->{more_subfields_xml}, undef, 'This xml field should be undef' ); |
| 340 |
$item = $builder->build( { source => 'Item', value => { more_subfields_xml => 'some xml' } } ); |
340 |
$item = $builder->build( { source => 'Item', value => { more_subfields_xml => 'some xml' } } ); |
| 341 |
is( $item->{more_subfields_xml}, 'some xml' ); |
341 |
is( $item->{more_subfields_xml}, 'some xml', 'Default should not overwrite assigned value' ); |
| 342 |
}; |
342 |
}; |
| 343 |
|
343 |
|
| 344 |
$schema->storage->txn_rollback; |
344 |
$schema->storage->txn_rollback; |
| 345 |
- |
|
|