r1032@llin: dpavlin | 2006-09-29 14:22:09 +0200

 dump normalize rules when in debug mode

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@719 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/2-parse.t b/t/2-parse.t
index 4d757f2..7589e5a 100755 (executable)
--- a/t/2-parse.t
+++ b/t/2-parse.t
@@ -68,6 +68,7 @@ diag "_normalize_source = ",dump($n) if ($debug);
 foreach my $db (keys %$n) {
        foreach my $i (keys %{$n->{$db}}) {
                ok(my $r = $parser->normalize_rules($db,$i), "normalize_source($db/$i)");
+               diag "normalize_rules($db,$i) = $r" if ($debug);
                cmp_ok($n->{$db}->{$i}, 'eq', $r, "same");
        }
 }