3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 348; |
use Test::More tests => 355; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok( 'WebPAC::Test' ); |
use_ok( 'WebPAC::Test' ); |
866 |
|
|
867 |
# frec |
# frec |
868 |
|
|
869 |
my $rec = { |
$rec = { |
870 |
'200' => [ { |
'200' => [ { |
871 |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ], |
872 |
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/ ], |
902 |
cmp_ok( _pack_subfields_hash( $hash, 1 ), 'eq', '^a[a]^b[b]', '_pack_subfields_hash' ); |
cmp_ok( _pack_subfields_hash( $hash, 1 ), 'eq', '^a[a]^b[b]', '_pack_subfields_hash' ); |
903 |
ok( $hash->{subfields}, 'subfields exist' ); |
ok( $hash->{subfields}, 'subfields exist' ); |
904 |
|
|
905 |
|
$rec = { 'arr' => [ 1, 2, 3 ] }; |
906 |
|
test_rule( 'rec_array', $rec, qq{ rec_array('arr') }, $rec->{arr} ); |
907 |
|
|
908 |
|
_clean_ds(); |
909 |
|
_set_ds( $rec ); |
910 |
|
test_s(q{ |
911 |
|
row( e => $_ ) foreach ( rec_array('arr') ); |
912 |
|
}); |
913 |
|
ok( my $rows = _get_ds->{_rows}, 'ds have _rows' ); |
914 |
|
|
915 |
|
foreach my $i ( 1 .. 3 ) { |
916 |
|
cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" ); |
917 |
|
} |
918 |
|
|
919 |
} |
} |
920 |
|
|