/[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 432 by dpavlin, Sun Jan 8 22:21:24 2006 UTC revision 433 by dpavlin, Mon Apr 17 16:01:12 2006 UTC
# Line 167  sub parse_test($$$$$) { Line 167  sub parse_test($$$$$) {
167          my ($import,$tag,$rec,$i,$r) = @_;          my ($import,$tag,$rec,$i,$r) = @_;
168          $n->{import_xml}->{indexer} = $import;          $n->{import_xml}->{indexer} = $import;
169          # erase internal cache (yak!)          # erase internal cache (yak!)
170          delete($n->{tags_by_order});          delete($n->{_tags_by_order});
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");
Legend:
Removed from v.432  
changed lines
  Added in v.433
  ViewVC Help
Powered by ViewVC 1.1.26