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:
Josef Moravec 2018-02-19 10:36:04 +00:00 committed by Jonathan Druart
parent 031604f59b
commit f2e9d0d895
1 changed files with 4 additions and 2 deletions

View File

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