--- trunk/t/3-normalize-xml.t 2006/01/08 20:27:21 366 +++ trunk/t/3-normalize-xml.t 2006/01/08 20:31:28 367 @@ -121,20 +121,20 @@ 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"); }