691 |
'_pack_subfields_hash( $h )' |
'_pack_subfields_hash( $h )' |
692 |
); |
); |
693 |
|
|
694 |
is_deeply( |
cmp_ok( |
695 |
[ _pack_subfields_hash({ |
_pack_subfields_hash({ |
696 |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
697 |
subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], |
subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ], |
698 |
}, 1) ], |
}, 1), |
699 |
['^a','a1', '^b','b1', '^a','a2', '^b','b2', '^c','c1', '^c','c2'], |
'eq', |
700 |
|
'^aa1^bb1^aa2^bb2^cc1^cc2', |
701 |
'_pack_subfields_hash( $h, 1 )' |
'_pack_subfields_hash( $h, 1 )' |
702 |
); |
); |
703 |
} |
} |