/[webpac2]/trunk/t/2-parse.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/2-parse.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 718 by dpavlin, Tue Sep 26 18:14:14 2006 UTC revision 719 by dpavlin, Fri Sep 29 12:24:43 2006 UTC
# Line 68  diag "_normalize_source = ",dump($n) if Line 68  diag "_normalize_source = ",dump($n) if
68  foreach my $db (keys %$n) {  foreach my $db (keys %$n) {
69          foreach my $i (keys %{$n->{$db}}) {          foreach my $i (keys %{$n->{$db}}) {
70                  ok(my $r = $parser->normalize_rules($db,$i), "normalize_source($db/$i)");                  ok(my $r = $parser->normalize_rules($db,$i), "normalize_source($db/$i)");
71                    diag "normalize_rules($db,$i) = $r" if ($debug);
72                  cmp_ok($n->{$db}->{$i}, 'eq', $r, "same");                  cmp_ok($n->{$db}->{$i}, 'eq', $r, "same");
73          }          }
74  }  }
Legend:
Removed from v.718  
changed lines
  Added in v.719
  ViewVC Help
Powered by ViewVC 1.1.26