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

(-)a/t/db_dependent/Biblio.t (-3 / +4 lines)
Lines 423-429 subtest 'NORMARC' => sub { Link Here
423
};
423
};
424
424
425
subtest 'IsMarcStructureInternal' => sub {
425
subtest 'IsMarcStructureInternal' => sub {
426
    plan tests => 6;
426
    plan tests => 8;
427
    my $tagslib = GetMarcStructure();
427
    my $tagslib = GetMarcStructure();
428
    my @internals;
428
    my @internals;
429
    for my $tag ( sort keys %$tagslib ) {
429
    for my $tag ( sort keys %$tagslib ) {
Lines 433-444 subtest 'IsMarcStructureInternal' => sub { Link Here
433
        }
433
        }
434
    }
434
    }
435
    @internals = uniq @internals;
435
    @internals = uniq @internals;
436
    is( scalar(@internals), 4, 'expect four internals');
436
    is( scalar(@internals), 6, 'expect 6 internals');
437
    is( grep( /^lib$/, @internals ), 1, 'check lib' );
437
    is( grep( /^lib$/, @internals ), 1, 'check lib' );
438
    is( grep( /^tab$/, @internals ), 1, 'check tab' );
438
    is( grep( /^tab$/, @internals ), 1, 'check tab' );
439
    is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
439
    is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
440
    is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
440
    is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
441
    is( grep( /^a$/, @internals ), 0, 'no subfield a' );
441
    is( grep( /^a$/, @internals ), 0, 'no subfield a' );
442
    is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' );
443
    is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' );
442
};
444
};
443
445
444
subtest 'deletedbiblio_metadata' => sub {
446
subtest 'deletedbiblio_metadata' => sub {
445
- 

Return to bug 9701