--- trunk/t/3-normalize-xml.t	2006/01/08 20:27:01	362
+++ trunk/t/3-normalize-xml.t	2006/01/08 20:27:16	365
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 124;
+use Test::More tests => 132;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -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);
+	diag Dumper($ds) if ($i == 0);
 	cmp_ok($ds->{$tag}->{display}->[$i], 'eq', $r, "parse $tag/$i - $r");
 }
 
@@ -245,10 +245,17 @@
 	'Tag_x' => { 'isis' => [
 		{ content => 'v900^x' },
 	] },
+	'Tag_s1' => { 'isis' => [
+		{ content => 's900^b = s900^x' },
+	] },
+	'Tag_s2' => { 'isis' => [
+		{ content => 's900^a s900^b s900^c s900^x' },
+	] },
 };
 
 parse_test_arr($import, 'Tag_a', $rec, [ '','a1','','a2' ] );
 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' ] );