/[webpac2]/trunk/t/3-normalize-xml.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/3-normalize-xml.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 372 by dpavlin, Sun Jan 8 21:16:22 2006 UTC revision 373 by dpavlin, Sun Jan 8 22:09:33 2006 UTC
# Line 171  sub parse_test($$$$$) { Line 171  sub parse_test($$$$$) {
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    
# Line 246  $import = { Line 246  $import = {
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' },
# Line 257  parse_test_arr($import, 'Tag_a', $rec, [ Line 257  parse_test_arr($import, 'Tag_a', $rec, [
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    
Legend:
Removed from v.372  
changed lines
  Added in v.373
  ViewVC Help
Powered by ViewVC 1.1.26