View | Details | Raw Unified | Return to bug 24480
Collapse All | Expand All

(-)a/t/db_dependent/MarcModificationTemplates.t (-21 / +20 lines)
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
- 

Return to bug 24480