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>

diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t
index 12dc25b..bb43bb1 100755 (executable)
--- 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 {