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