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 |
|
|