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