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