2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 332; |
use Test::More tests => 335; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use blib; |
use blib; |
835 |
'^aa1^bb1^aa2^bb2^cc1^cc2', |
'^aa1^bb1^aa2^bb2^cc1^cc2', |
836 |
'_pack_subfields_hash( $h, 1 )' |
'_pack_subfields_hash( $h, 1 )' |
837 |
); |
); |
838 |
|
|
839 |
|
_clean_ds(); |
840 |
|
test_s(qq{ |
841 |
|
marc_fixed('008', 0, 'abcdef'); |
842 |
|
marc_fixed('000', 5, '5'); |
843 |
|
marc_fixed('000', 10, 'A'); |
844 |
|
marc_fixed('000', 0, '0'); |
845 |
|
}); |
846 |
|
ok( my $m = WebPAC::Normalize::_get_marc_fields(), '_get_marc_fields'); |
847 |
|
diag dump( $m ); |
848 |
|
is_deeply( WebPAC::Normalize::_get_marc_fields(), |
849 |
|
[ |
850 |
|
["008", "abcdef"], |
851 |
|
# 0....5....10 |
852 |
|
["000", "0 5 A"] |
853 |
|
] |
854 |
|
); |
855 |
} |
} |
856 |
|
|