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