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