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