2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 309; |
use Test::More tests => 311; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use blib; |
use blib; |
725 |
[ '901', ' ', ' ', 'b', 'bar', 'c', 'baz' ], |
[ '901', ' ', ' ', 'b', 'bar', 'c', 'baz' ], |
726 |
], |
], |
727 |
); |
); |
728 |
|
|
729 |
|
test_s(qq{ marc_remove('*'); }); |
730 |
|
ok(! WebPAC::Normalize::_get_marc_fields(), 'marc_remove(*)'); |
731 |
|
|
732 |
test_rec_rules( |
test_rec_rules( |
733 |
'marc_duplicate', |
'marc_duplicate', |
734 |
{ '200' => [{ a => 42, b => 'bar', c => 'baz', d => 'bing', e => 'bong' }] }, |
{ '200' => [{ a => 42, b => 'bar', c => 'baz', d => 'bing', e => 'bong' }] }, |