r402@llin: dpavlin | 2006-01-08 21:28:21 +0100

 better output

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

diff --git a/t/3-normalize-xml.t b/t/3-normalize-xml.t
index 009079f..c60753c 100755 (executable)
--- a/t/3-normalize-xml.t
+++ b/t/3-normalize-xml.t
@@ -121,20 +121,20 @@ foreach my $fld (keys %$rec) {
                if (ref($item) eq 'HASH') {
                        foreach my $sf (keys %$item) {
                                my $found = 0;
-                               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");
                                ok($found, "found");
                        }
                        my $found = 0;
-                       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");
                        ok(! $found, "not found");
                } else {
                        my $found = 0;
-                       ok($n->get_data(\$rec, $fld, '', $r, \$found), "v${fld}");
+                       ok($n->get_data(\$rec, $fld, undef, $r, \$found), "v${fld} / $r");
                        ok($found, "found");
                }
        }
        my $found = 0;
-       ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld}");
+       ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld} / $r");
        ok(! $found, "not found");
 }