Bug 9701: (follow-up) Adjust tests
Test plan: prove t/db_dependent/Biblio.t should be green Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
parent
031604f59b
commit
f2e9d0d895
|
|
@ -423,7 +423,7 @@ subtest 'NORMARC' => sub {
|
|||
};
|
||||
|
||||
subtest 'IsMarcStructureInternal' => sub {
|
||||
plan tests => 6;
|
||||
plan tests => 8;
|
||||
my $tagslib = GetMarcStructure();
|
||||
my @internals;
|
||||
for my $tag ( sort keys %$tagslib ) {
|
||||
|
|
@ -433,12 +433,14 @@ subtest 'IsMarcStructureInternal' => sub {
|
|||
}
|
||||
}
|
||||
@internals = uniq @internals;
|
||||
is( scalar(@internals), 4, 'expect four internals');
|
||||
is( scalar(@internals), 6, 'expect 6 internals');
|
||||
is( grep( /^lib$/, @internals ), 1, 'check lib' );
|
||||
is( grep( /^tab$/, @internals ), 1, 'check tab' );
|
||||
is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
|
||||
is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
|
||||
is( grep( /^a$/, @internals ), 0, 'no subfield a' );
|
||||
is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' );
|
||||
is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' );
|
||||
};
|
||||
|
||||
subtest 'deletedbiblio_metadata' => sub {
|
||||
|
|
|
|||
Loading…
Reference in New Issue