Lines 769-777
subtest 'context option in ModBiblio is handled correctly' => sub {
Link Here
|
769 |
[ '500', 'a', 'One bottle of beer in the fridge' ], # original |
769 |
[ '500', 'a', 'One bottle of beer in the fridge' ], # original |
770 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
770 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
771 |
]); |
771 |
]); |
772 |
$expected_record->insert_fields_ordered( |
772 |
|
773 |
MARC::Field->new( '005', $saved_record->field('005')->data ), |
773 |
# Remove timestamp from saved record when comparing |
774 |
); # simulate same timestamp |
774 |
$saved_record->delete_fields( $saved_record->field('005') ); |
775 |
|
775 |
|
776 |
# Make sure leader is equal after AddBiblio |
776 |
# Make sure leader is equal after AddBiblio |
777 |
$expected_record->leader($saved_record->leader()); |
777 |
$expected_record->leader($saved_record->leader()); |
Lines 798-806
subtest 'context option in ModBiblio is handled correctly' => sub {
Link Here
|
798 |
[ '500', 'a', 'One cold bottle of beer in the fridge' ], |
798 |
[ '500', 'a', 'One cold bottle of beer in the fridge' ], |
799 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
799 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
800 |
]); |
800 |
]); |
801 |
$expected_record->insert_fields_ordered( |
801 |
|
802 |
MARC::Field->new( '005', $saved_record->field('005')->data ), |
802 |
# Remove timestamp from saved record when comparing |
803 |
); # simulate same timestamp |
803 |
$updated_record->delete_fields( $updated_record->field('005') ); |
804 |
|
804 |
|
805 |
# Make sure leader is equal after ModBiblio |
805 |
# Make sure leader is equal after ModBiblio |
806 |
$expected_record->leader($updated_record->leader()); |
806 |
$expected_record->leader($updated_record->leader()); |
807 |
- |
|
|