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