/[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 366 by dpavlin, Sun Jan 8 20:27:16 2006 UTC revision 367 by dpavlin, Sun Jan 8 20:31:28 2006 UTC
# Line 121  foreach my $fld (keys %$rec) { Line 121  foreach my $fld (keys %$rec) {
121                  if (ref($item) eq 'HASH') {                  if (ref($item) eq 'HASH') {
122                          foreach my $sf (keys %$item) {                          foreach my $sf (keys %$item) {
123                                  my $found = 0;                                  my $found = 0;
124                                  ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf}");                                  ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf} / $r");
125                                  ok($found, "found");                                  ok($found, "found");
126                          }                          }
127                          my $found = 0;                          my $found = 0;
128                          ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x");                          ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x / $r");
129                          ok(! $found, "not found");                          ok(! $found, "not found");
130                  } else {                  } else {
131                          my $found = 0;                          my $found = 0;
132                          ok($n->get_data(\$rec, $fld, '', $r, \$found), "v${fld}");                          ok($n->get_data(\$rec, $fld, undef, $r, \$found), "v${fld} / $r");
133                          ok($found, "found");                          ok($found, "found");
134                  }                  }
135          }          }
136          my $found = 0;          my $found = 0;
137          ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld}");          ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld} / $r");
138          ok(! $found, "not found");          ok(! $found, "not found");
139  }  }
140    
Legend:
Removed from v.366  
changed lines
  Added in v.367
  ViewVC Help
Powered by ViewVC 1.1.26