|
Lines 460-465
sub expected_record_1 {
Link Here
|
| 460 |
my $record = MARC::Record->new; |
460 |
my $record = MARC::Record->new; |
| 461 |
$record->leader('03174nam a2200445 a 4500'); |
461 |
$record->leader('03174nam a2200445 a 4500'); |
| 462 |
my @fields = ( |
462 |
my @fields = ( |
|
|
463 |
MARC::Field->new( |
| 464 |
'007', 'vxcdq', |
| 465 |
), |
| 463 |
MARC::Field->new( |
466 |
MARC::Field->new( |
| 464 |
100, '1', ' ', |
467 |
100, '1', ' ', |
| 465 |
a => 'Knuth, Donald Ervin', |
468 |
a => 'Knuth, Donald Ervin', |
|
Lines 470-505
sub expected_record_1 {
Link Here
|
| 470 |
a => 'The art of computer programming', |
473 |
a => 'The art of computer programming', |
| 471 |
c => 'Donald E. Knuth.', |
474 |
c => 'Donald E. Knuth.', |
| 472 |
), |
475 |
), |
| 473 |
MARC::Field->new( |
|
|
| 474 |
650, ' ', '0', |
| 475 |
9 => '462', |
| 476 |
), |
| 477 |
MARC::Field->new( |
| 478 |
952, ' ', ' ', |
| 479 |
p => '3010023917_updated', |
| 480 |
y => 'BK', |
| 481 |
c => 'GEN', |
| 482 |
e => '2001-06-25', |
| 483 |
), |
| 484 |
MARC::Field->new( |
476 |
MARC::Field->new( |
| 485 |
246, '', ' ', |
477 |
246, '', ' ', |
| 486 |
a => 'The art of computer programming', |
478 |
a => 'The art of computer programming', |
| 487 |
), |
479 |
), |
|
|
480 |
MARC::Field->new( |
| 481 |
650, ' ', '0', |
| 482 |
9 => '462', |
| 483 |
), |
| 488 |
MARC::Field->new( |
484 |
MARC::Field->new( |
| 489 |
651, ' ', '0', |
485 |
651, ' ', '0', |
| 490 |
a => 'Computer algorithms.', |
486 |
a => 'Computer algorithms.', |
| 491 |
9 => '499', |
487 |
9 => '499', |
| 492 |
), |
488 |
), |
| 493 |
MARC::Field->new( |
489 |
MARC::Field->new( |
| 494 |
999, ' ', ' ', |
490 |
952, ' ', ' ', |
| 495 |
a => 'existent - updated.', |
491 |
p => '3010023917_updated', |
|
|
492 |
y => 'BK', |
| 493 |
c => 'GEN', |
| 494 |
e => '2001-06-25', |
| 496 |
), |
495 |
), |
| 497 |
MARC::Field->new( |
496 |
MARC::Field->new( |
| 498 |
999, ' ', ' ', |
497 |
999, ' ', ' ', |
| 499 |
a => 'additional existent.', |
498 |
a => 'additional existent.', |
| 500 |
), |
499 |
), |
| 501 |
MARC::Field->new( |
500 |
MARC::Field->new( |
| 502 |
'007', 'vxcdq', |
501 |
999, ' ', ' ', |
|
|
502 |
a => 'existent - updated.', |
| 503 |
), |
503 |
), |
| 504 |
); |
504 |
); |
| 505 |
$record->append_fields(@fields); |
505 |
$record->append_fields(@fields); |
|
Lines 530-547
sub expected_record_2 {
Link Here
|
| 530 |
a => 'Computer programming.', |
530 |
a => 'Computer programming.', |
| 531 |
9 => '499', |
531 |
9 => '499', |
| 532 |
), |
532 |
), |
|
|
533 |
MARC::Field->new( |
| 534 |
651, ' ', '0', |
| 535 |
a => 'Computer programming.', |
| 536 |
9 => '462', |
| 537 |
), |
| 533 |
MARC::Field->new( |
538 |
MARC::Field->new( |
| 534 |
952, ' ', ' ', |
539 |
952, ' ', ' ', |
| 535 |
p => '3010023917', |
540 |
p => '3010023917', |
| 536 |
y => 'BK', |
541 |
y => 'BK', |
| 537 |
c => 'GEN', |
542 |
c => 'GEN', |
| 538 |
d => '2001-06-25', |
543 |
d => '2001-06-25', |
| 539 |
), |
544 |
) |
| 540 |
MARC::Field->new( |
|
|
| 541 |
651, ' ', '0', |
| 542 |
a => 'Computer programming.', |
| 543 |
9 => '462', |
| 544 |
), |
| 545 |
); |
545 |
); |
| 546 |
$record->append_fields(@fields); |
546 |
$record->append_fields(@fields); |
| 547 |
return $record; |
547 |
return $record; |
| 548 |
- |
|
|