/[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 373 by dpavlin, Sun Jan 8 22:09:33 2006 UTC revision 375 by dpavlin, Sun Jan 8 22:21:24 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 132;  use Test::More tests => 140;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 248  $import = { Line 248  $import = {
248          'Tag_s1' => { 'isis' => [          'Tag_s1' => { 'isis' => [
249                  { content => 'v900^a = v900^c' },                  { content => 'v900^a = v900^c' },
250          ] },          ] },
251          'Tag_s2' => { 'isis' => [          'Tag_noval' => { 'isis' => [
252                  { content => 's900^a s900^b s900^c s900^x' },                  { content => 'v911^1' },
253                    { content => 'v900^c' },
254          ] },          ] },
255  };  };
256    
# Line 258  parse_test_arr($import, 'Tag_b', $rec, [ Line 259  parse_test_arr($import, 'Tag_b', $rec, [
259  parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] );  parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] );
260  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' ] );
261  parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] );  parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] );
262    parse_test_arr($import, 'Tag_noval', $rec, [ '','','c1','c2' ] );
263    
Legend:
Removed from v.373  
changed lines
  Added in v.375
  ViewVC Help
Powered by ViewVC 1.1.26