|
Lines 464-469
sub new_record {
Link Here
|
| 464 |
my $record = MARC::Record->new; |
464 |
my $record = MARC::Record->new; |
| 465 |
$record->leader('03174nam a2200445 a 4500'); |
465 |
$record->leader('03174nam a2200445 a 4500'); |
| 466 |
my @fields = ( |
466 |
my @fields = ( |
|
|
467 |
MARC::Field->new( |
| 468 |
'007', 'vxcdq', |
| 469 |
), |
| 467 |
MARC::Field->new( |
470 |
MARC::Field->new( |
| 468 |
100, '1', ' ', |
471 |
100, '1', ' ', |
| 469 |
a => 'Knuth, Donald Ervin', |
472 |
a => 'Knuth, Donald Ervin', |
|
Lines 515-550
sub expected_record_1 {
Link Here
|
| 515 |
a => 'The art of computer programming', |
518 |
a => 'The art of computer programming', |
| 516 |
c => 'Donald E. Knuth.', |
519 |
c => 'Donald E. Knuth.', |
| 517 |
), |
520 |
), |
| 518 |
MARC::Field->new( |
|
|
| 519 |
650, ' ', '0', |
| 520 |
9 => '462', |
| 521 |
), |
| 522 |
MARC::Field->new( |
| 523 |
952, ' ', ' ', |
| 524 |
p => '3010023917_updated', |
| 525 |
y => 'BK', |
| 526 |
c => 'GEN', |
| 527 |
e => '2001-06-25', |
| 528 |
), |
| 529 |
MARC::Field->new( |
521 |
MARC::Field->new( |
| 530 |
246, '', ' ', |
522 |
246, '', ' ', |
| 531 |
a => 'The art of computer programming', |
523 |
a => 'The art of computer programming', |
| 532 |
), |
524 |
), |
|
|
525 |
MARC::Field->new( |
| 526 |
650, ' ', '0', |
| 527 |
9 => '462', |
| 528 |
), |
| 533 |
MARC::Field->new( |
529 |
MARC::Field->new( |
| 534 |
651, ' ', '0', |
530 |
651, ' ', '0', |
| 535 |
a => 'Computer algorithms.', |
531 |
a => 'Computer algorithms.', |
| 536 |
9 => '499', |
532 |
9 => '499', |
| 537 |
), |
533 |
), |
| 538 |
MARC::Field->new( |
534 |
MARC::Field->new( |
| 539 |
999, ' ', ' ', |
535 |
952, ' ', ' ', |
| 540 |
a => 'existent - updated.', |
536 |
p => '3010023917_updated', |
|
|
537 |
y => 'BK', |
| 538 |
c => 'GEN', |
| 539 |
e => '2001-06-25', |
| 541 |
), |
540 |
), |
| 542 |
MARC::Field->new( |
541 |
MARC::Field->new( |
| 543 |
999, ' ', ' ', |
542 |
999, ' ', ' ', |
| 544 |
a => 'additional existent.', |
543 |
a => 'additional existent.', |
| 545 |
), |
544 |
), |
| 546 |
MARC::Field->new( |
545 |
MARC::Field->new( |
| 547 |
'007', 'vxcdq', |
546 |
999, ' ', ' ', |
|
|
547 |
a => 'existent - updated.', |
| 548 |
), |
548 |
), |
| 549 |
); |
549 |
); |
| 550 |
$record->append_fields(@fields); |
550 |
$record->append_fields(@fields); |
|
Lines 575-592
sub expected_record_2 {
Link Here
|
| 575 |
a => 'Computer programming.', |
575 |
a => 'Computer programming.', |
| 576 |
9 => '499', |
576 |
9 => '499', |
| 577 |
), |
577 |
), |
|
|
578 |
MARC::Field->new( |
| 579 |
651, ' ', '0', |
| 580 |
a => 'Computer programming.', |
| 581 |
9 => '462', |
| 582 |
), |
| 578 |
MARC::Field->new( |
583 |
MARC::Field->new( |
| 579 |
952, ' ', ' ', |
584 |
952, ' ', ' ', |
| 580 |
p => '3010023917', |
585 |
p => '3010023917', |
| 581 |
y => 'BK', |
586 |
y => 'BK', |
| 582 |
c => 'GEN', |
587 |
c => 'GEN', |
| 583 |
d => '2001-06-25', |
588 |
d => '2001-06-25', |
| 584 |
), |
589 |
) |
| 585 |
MARC::Field->new( |
|
|
| 586 |
651, ' ', '0', |
| 587 |
a => 'Computer programming.', |
| 588 |
9 => '462', |
| 589 |
), |
| 590 |
); |
590 |
); |
| 591 |
$record->append_fields(@fields); |
591 |
$record->append_fields(@fields); |
| 592 |
return $record; |
592 |
return $record; |
| 593 |
- |
|
|