From 3574c06e23227df2215254a1f63e37a61348703d Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Mon, 19 Feb 2018 10:36:04 +0000 Subject: [PATCH] Bug 9701: (follow-up) Adjust tests Test plan: prove t/db_dependent/Biblio.t should be green Signed-off-by: Nick Clemens --- t/db_dependent/Biblio.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t index 12dc25b..bb43bb1 100755 --- a/t/db_dependent/Biblio.t +++ b/t/db_dependent/Biblio.t @@ -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 { -- 2.1.4