--- trunk/t/3-normalize-xml.t 2006/01/08 22:09:33 373 +++ trunk/t/3-normalize-xml.t 2006/01/08 22:21:24 375 @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -use Test::More tests => 132; +use Test::More tests => 140; use Test::Exception; use Cwd qw/abs_path/; use blib; @@ -248,8 +248,9 @@ 'Tag_s1' => { 'isis' => [ { content => 'v900^a = v900^c' }, ] }, - 'Tag_s2' => { 'isis' => [ - { content => 's900^a s900^b s900^c s900^x' }, + 'Tag_noval' => { 'isis' => [ + { content => 'v911^1' }, + { content => 'v900^c' }, ] }, }; @@ -258,4 +259,5 @@ 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, [ '', 'a1', 'c1', 'a2 = c2' ] ); +parse_test_arr($import, 'Tag_noval', $rec, [ '','','c1','c2' ] );