| 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 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch