/[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 314 by dpavlin, Fri Dec 23 21:05:50 2005 UTC revision 315 by dpavlin, Fri Dec 23 21:17:37 2005 UTC
# Line 149  $n->{tag} = 'isis'; Line 149  $n->{tag} = 'isis';
149    
150    
151  $rec = {  $rec = {
152   '900' => [          '900' => [ {
153              {                  'a' => '1',
154                'a' => '1',                  'b' => '2',
155                'b' => '2',                  'c' => '3',
156                'c' => '3',                  'txt' => 'yap',
157              }          } ],
   ],  
158  };  };
159    
160  my $import = {  my $import = {
161          'Tag' => { 'isis' => [          'Tag' => { 'isis' => [
162                          { content => 'v900^a + v900^b = v900^c' },                          { content => 'v900^a + v900^b = v900^c [txt]' },
163          ] },          ] },
164  };  };
165    
# Line 169  sub parse_test($$$) { Line 168  sub parse_test($$$) {
168          $n->{import_xml}->{indexer} = $import;          $n->{import_xml}->{indexer} = $import;
169          # erase internal cache (yak!)          # erase internal cache (yak!)
170          delete($n->{tags_by_order});          delete($n->{tags_by_order});
171          push @{$rec->{'000'}}, 42;          push @{$rec->{'000'}}, 42 unless ($rec->{'000'});
172          diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec);          diag "test normalisation of: ",Dumper($n->{import_xml}->{indexer}, $rec);
173          ok(my $ds = $n->data_structure( $rec ), "data_structure");          ok(my $ds = $n->data_structure( $rec ), "data_structure");
174          diag Dumper($ds);          diag Dumper($ds);
175          cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r");          cmp_ok($ds->{Tag}->{display}->[0], 'eq', $r, "parse $r");
176  }  }
177    
178  parse_test($import, $rec, '1 + 2 = 3');  parse_test($import, $rec, '1 + 2 = 3 [yap]');
179    
180    delete($rec->{'900'}->[0]->{'b'});
181    parse_test($import, $rec, '1 = 3 [yap]');
182    
183    $rec->{'900'}->[0]->{'b'} = 5;
184    $rec->{'900'}->[0]->{'c'} = 6;
185    parse_test($import, $rec, '1 + 5 = 6 [yap]');
186    
187    delete($rec->{'900'}->[0]->{'c'});
188    parse_test($import, $rec, '1 + 5');
189    
190    $rec->{'900'}->[0]->{'txt'} = 'nope!';
191    delete($rec->{'900'}->[0]->{'a'});
192    parse_test($import, $rec, '5 [nope!]');
193    
Legend:
Removed from v.314  
changed lines
  Added in v.315
  ViewVC Help
Powered by ViewVC 1.1.26