- test_rec_rules(
- 'marc_template',
- {
- '225' => [{
- 'a' => 'a-1-1',
- 'i' => 'i-1-1',
- 'v' => 'v-1-1',
- 'w' => 'w-1-1',
- 'h' => 'h-1-1',
- 'x' => 'x-1-1',
- },{
- 'a' => 'a-2-1',
- 'v' => 'v-2-1',
- 'i' => 'i-2-1',
- },{
- 'a' => 'a-3-1',
- 'i' => 'i-3-1',
- 'v' => 'v-3-1',
- },{
- 'a' => 'a-4-1',
- 'v' => 'v-4-1',
- 'i' => 'i-4-1',
- 'w' => 'w-4-1',
- },{
- 'a' => 'a-5-1',
- }],
- },
- qq{
- marc_template(
- from => 225, to => 440,
- subfields_rename => [
- 'a' => 'a',
- 'x' => 'x',
- 'v' => 'v',
- 'h' => 'n',
- 'i' => 'p',
- 'w' => 'v',
- ],
- marc_template => [
- 'a',
- 'a, |x ; |v. |n, |p ; |v',
- 'a ; |v. |p ; |v',
- 'a. |p ; |v',
- ],
- );
- },
- [
- [440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],
- [440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"],
- [440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-3-1"],
- [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],
- [440, " ", " ", "a", "a-5-1"],
- ],
+ my $hash = { a => '[a]', 'b' => '[b]', subfields => [ 'a', 0, 'b', 0 ] };
+ is_deeply([ _pack_subfields_hash( $hash ) ], [ '[a]', '[b]' ], '_pack_subfields_hash' );
+ ok( $hash->{subfields}, 'subfields exist' );
+ cmp_ok( _pack_subfields_hash( $hash, 1 ), 'eq', '^a[a]^b[b]', '_pack_subfields_hash' );
+ ok( $hash->{subfields}, 'subfields exist' );
+
+ $rec = { 'arr' => [ 1, 2, 3 ] };
+ test_rule( 'rec_array', $rec, qq{ rec_array('arr') }, $rec->{arr} );
+
+ _clean_ds();
+ _set_ds( $rec );
+ test_s(q{
+ row( 'table', e => $_ ) foreach ( rec_array('arr') );
+ });
+ ok( my $rows = _get_ds->{_rows}->{table}, 'ds have _rows' );
+
+ foreach my $i ( 1 .. 3 ) {
+ cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" );
+ }
+
+ test_rule( 'utf-8'
+ , { '900' => [{ a => 'Čev', b => 'ić' }] }
+ , qq{ join_with('', rec(900,'a'), 'apč', rec(900,'b') ) }
+ , [ "\x{10C}evap\x{10D}i\x{107}" ]