2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 99; |
use Test::More tests => 103; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use blib; |
use blib; |
525 |
] |
] |
526 |
], |
], |
527 |
); |
); |
528 |
|
|
529 |
|
cmp_ok(marc_leader('06',42), '==', 42, 'marc_leader'); |
530 |
|
cmp_ok(marc_leader('11',5), '==', 5, 'marc_leader'); |
531 |
|
ok(marc_leader(), 'marc_leader get'); |
532 |
|
diag "leader: ", dump(marc_leader()) if ($debug); |
533 |
|
is_deeply(marc_leader(), { '06' => 42, 11 => 5 }, "marc_leader full"); |
534 |
} |
} |
535 |
|
|