|
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 |
- |
|
|