171 |
push @{$rec->{'000'}}, 42 unless ($rec->{'000'}); |
push @{$rec->{'000'}}, 42 unless ($rec->{'000'}); |
172 |
#diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); |
#diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); |
173 |
ok(my $ds = $n->data_structure( $rec ), "data_structure"); |
ok(my $ds = $n->data_structure( $rec ), "data_structure"); |
174 |
diag Dumper($ds) if ($i == 0); |
#diag Dumper($ds->{$tag}->{display}); # if ($i == 0); |
175 |
cmp_ok($ds->{$tag}->{display}->[$i], 'eq', $r, "parse $tag/$i - $r"); |
cmp_ok($ds->{$tag}->{display}->[$i], 'eq', $r, "parse $tag/$i - $r"); |
176 |
} |
} |
177 |
|
|
246 |
{ content => 'v900^x' }, |
{ content => 'v900^x' }, |
247 |
] }, |
] }, |
248 |
'Tag_s1' => { 'isis' => [ |
'Tag_s1' => { 'isis' => [ |
249 |
{ content => 's900^b = s900^x' }, |
{ content => 'v900^a = v900^c' }, |
250 |
] }, |
] }, |
251 |
'Tag_s2' => { 'isis' => [ |
'Tag_s2' => { 'isis' => [ |
252 |
{ content => 's900^a s900^b s900^c s900^x' }, |
{ content => 's900^a s900^b s900^c s900^x' }, |
257 |
parse_test_arr($import, 'Tag_b', $rec, [ 'b1','b2','b3','b4' ] ); |
parse_test_arr($import, 'Tag_b', $rec, [ 'b1','b2','b3','b4' ] ); |
258 |
parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] ); |
parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] ); |
259 |
parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] ); |
parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] ); |
260 |
parse_test_arr($import, 'Tag_s1', $rec, [ 'b1 = b1', 'b1 = b1', 'b1 = b1', 'b1 = b1' ] ); |
parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] ); |
261 |
|
|