Lines 554-560
subtest 'NORMARC' => sub {
Link Here
|
554 |
}; |
554 |
}; |
555 |
|
555 |
|
556 |
subtest 'IsMarcStructureInternal' => sub { |
556 |
subtest 'IsMarcStructureInternal' => sub { |
557 |
plan tests => 8; |
557 |
plan tests => 9; |
558 |
my $tagslib = GetMarcStructure(); |
558 |
my $tagslib = GetMarcStructure(); |
559 |
my @internals; |
559 |
my @internals; |
560 |
for my $tag ( sort keys %$tagslib ) { |
560 |
for my $tag ( sort keys %$tagslib ) { |
Lines 564-574
subtest 'IsMarcStructureInternal' => sub {
Link Here
|
564 |
} |
564 |
} |
565 |
} |
565 |
} |
566 |
@internals = uniq @internals; |
566 |
@internals = uniq @internals; |
567 |
is( scalar(@internals), 6, 'expect 6 internals'); |
567 |
is( scalar(@internals), 7, 'expect 7 internals'); |
568 |
is( grep( /^lib$/, @internals ), 1, 'check lib' ); |
568 |
is( grep( /^lib$/, @internals ), 1, 'check lib' ); |
569 |
is( grep( /^tab$/, @internals ), 1, 'check tab' ); |
569 |
is( grep( /^tab$/, @internals ), 1, 'check tab' ); |
570 |
is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' ); |
570 |
is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' ); |
571 |
is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' ); |
571 |
is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' ); |
|
|
572 |
is( grep( /^important$/, @internals ), 1, 'check important' ); |
572 |
is( grep( /^a$/, @internals ), 0, 'no subfield a' ); |
573 |
is( grep( /^a$/, @internals ), 0, 'no subfield a' ); |
573 |
is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' ); |
574 |
is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' ); |
574 |
is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' ); |
575 |
is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' ); |
575 |
- |
|
|