View | Details | Raw Unified | Return to bug 5404
Collapse All | Expand All

(-)a/t/db_dependent/Biblio.t (-7 / +6 lines)
Lines 335-346 subtest 'IsMarcStructureInternal' => sub { Link Here
335
        }
335
        }
336
    }
336
    }
337
    @internals = uniq @internals;
337
    @internals = uniq @internals;
338
    is( scalar(@internals), 4, '');
338
    is( scalar(@internals), 4, 'expect four internals');
339
    is( grep( /^lib$/, @internals ), 1, '' );
339
    is( grep( /^lib$/, @internals ), 1, 'check lib' );
340
    is( grep( /^tab$/, @internals ), 1, '' );
340
    is( grep( /^tab$/, @internals ), 1, 'check tab' );
341
    is( grep( /^mandatory$/, @internals ), 1, '' );
341
    is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
342
    is( grep( /^repeatable$/, @internals ), 1, '' );
342
    is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
343
    is( grep( /^a$/, @internals ), 0, '' );
343
    is( grep( /^a$/, @internals ), 0, 'no subfield a' );
344
};
344
};
345
345
346
1;
346
1;
347
- 

Return to bug 5404