- 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',
- }],
- },
- qq{
- marc_template(
- from => 225, to => 440,
- subfields_rename => [
- 'a' => 'a',
- 'x' => 'x',
- 'v' => 'v',
- 'h' => 'n',
- 'i' => 'p',
- 'w' => 'v',
- ],
- marc_template => [
- '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"],
- ],
- ],
+ $rec = {
+ '200' => [ {
+ a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ],
+ subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ],
+ i1 => '0', i2 => '1',
+ }, {
+ a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3',
+ subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ],
+ } ],
+ };
+
+ test_rule( 'frec', $rec, qq{ frec(200) }, [ 'a1' ] );
+ test_rule( 'frec', $rec, qq{ frec(200,'a') }, [ 'a1' ] );
+ test_rule( 'frec', $rec, qq{ frec(200,'b') }, [ 'b1' ] );
+ test_rule( 'frec', $rec, qq{ frec(200,'c') }, [ 'c1' ] );
+
+ $rec->{'900'} = $rec->{'200'};
+ foreach my $sf ( qw/a b c/ ) {
+ ok( frec_eq( '200' => $sf, '900' => $sf ), "frec_eq 200 == 900 $sf");
+ ok( ! frec_ne( '200' => $sf, '900' => $sf ), "! frec_ne 200 == 900 $sf");
+ }
+
+ foreach my $sf ( qw/a b/ ) {
+ ok( ! frec_eq( '200' => $sf, '200' => 'c' ), "! frec_eq 200 $sf == 200 c");
+ ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c");
+ }
+
+ test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] );
+ test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '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}" ]