Lines 720-726
subtest 'context option in ModBiblio is handled correctly' => sub {
Link Here
|
720 |
[ '500', 'a', 'One bottle of beer in the fridge' ], # original |
720 |
[ '500', 'a', 'One bottle of beer in the fridge' ], # original |
721 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
721 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
722 |
]); |
722 |
]); |
723 |
$expected_record->leader('00196 a2200073 4500'); |
723 |
|
|
|
724 |
# Make sure leader is equal after AddBiblio |
725 |
$expected_record->leader($saved_record->leader()); |
724 |
|
726 |
|
725 |
is( |
727 |
is( |
726 |
$saved_record->as_formatted, |
728 |
$saved_record->as_formatted, |
Lines 744-750
subtest 'context option in ModBiblio is handled correctly' => sub {
Link Here
|
744 |
[ '500', 'a', 'One cold bottle of beer in the fridge' ], |
746 |
[ '500', 'a', 'One cold bottle of beer in the fridge' ], |
745 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
747 |
[ '999', 'c', $biblionumber, 'd', $biblioitemnumber ], # created by AddBiblio |
746 |
]); |
748 |
]); |
747 |
$expected_record->leader('00250 a2200085 4500'); |
749 |
|
|
|
750 |
# Make sure leader is equal after ModBiblio |
751 |
$expected_record->leader($updated_record->leader()); |
748 |
|
752 |
|
749 |
is( |
753 |
is( |
750 |
$updated_record->as_formatted, |
754 |
$updated_record->as_formatted, |
751 |
- |
|
|