--- trunk/t/3-normalize-xml.t 2006/01/08 21:50:34 372 +++ trunk/t/3-normalize-xml.t 2006/01/08 22:09:33 373 @@ -171,7 +171,7 @@ push @{$rec->{'000'}}, 42 unless ($rec->{'000'}); #diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec); ok(my $ds = $n->data_structure( $rec ), "data_structure"); - diag Dumper($ds) if ($i == 0); + #diag Dumper($ds->{$tag}->{display}); # if ($i == 0); cmp_ok($ds->{$tag}->{display}->[$i], 'eq', $r, "parse $tag/$i - $r"); } @@ -246,7 +246,7 @@ { content => 'v900^x' }, ] }, 'Tag_s1' => { 'isis' => [ - { content => 's900^b = s900^x' }, + { content => 'v900^a = v900^c' }, ] }, 'Tag_s2' => { 'isis' => [ { content => 's900^a s900^b s900^c s900^x' }, @@ -257,5 +257,5 @@ parse_test_arr($import, 'Tag_b', $rec, [ 'b1','b2','b3','b4' ] ); parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] ); parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] ); -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' ] );