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