/[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 315 by dpavlin, Fri Dec 23 21:17:37 2005 UTC revision 316 by dpavlin, Fri Dec 23 21:37:00 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 76;  use Test::More tests => 84;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 153  $rec = { Line 153  $rec = {
153                  'a' => '1',                  'a' => '1',
154                  'b' => '2',                  'b' => '2',
155                  'c' => '3',                  'c' => '3',
156                  'txt' => 'yap',                  'x' => 'yap',
157          } ],          } ],
158  };  };
159    
160  my $import = {  my $import = {
161          'Tag' => { 'isis' => [          'Tag' => { 'isis' => [
162                          { content => 'v900^a + v900^b = v900^c [txt]' },                          { content => 'v900^a + v900^b = v900^c [v900^x]' },
163          ] },          ] },
164  };  };
165    
# Line 185  $rec->{'900'}->[0]->{'c'} = 6; Line 185  $rec->{'900'}->[0]->{'c'} = 6;
185  parse_test($import, $rec, '1 + 5 = 6 [yap]');  parse_test($import, $rec, '1 + 5 = 6 [yap]');
186    
187  delete($rec->{'900'}->[0]->{'c'});  delete($rec->{'900'}->[0]->{'c'});
188  parse_test($import, $rec, '1 + 5');  $rec->{'900'}->[0]->{'x'} = 'hmmm';
189    parse_test($import, $rec, '1 + 5 [hmmm]');
190    
191  $rec->{'900'}->[0]->{'txt'} = 'nope!';  $rec->{'900'}->[0]->{'x'} = 'nope!';
192  delete($rec->{'900'}->[0]->{'a'});  delete($rec->{'900'}->[0]->{'a'});
193  parse_test($import, $rec, '5 [nope!]');  parse_test($import, $rec, '5 [nope!]');
194    
Legend:
Removed from v.315  
changed lines
  Added in v.316
  ViewVC Help
Powered by ViewVC 1.1.26