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