196 |
|
|
197 |
# lookups |
# lookups |
198 |
|
|
199 |
throws_ok { _set_load_ds() } qr/CODE/, 'empty _set_load_ds()'; |
throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()'; |
200 |
|
|
201 |
ok(_set_load_ds(sub { |
ok(_set_load_row(sub { |
202 |
my ($database,$input,$mfn) = @_; |
my ($database,$input,$mfn) = @_; |
203 |
diag "load_ds( $database, $input, $mfn )"; |
diag "load_row( $database, $input, $mfn )"; |
204 |
cmp_ok( $#_, '==', 2, 'have 3 arguments'); |
cmp_ok( $#_, '==', 2, 'have 3 arguments'); |
205 |
ok($database, '_load_ds database'); |
ok($database, '_load_row database'); |
206 |
ok($input, '_load_ds input'); |
ok($input, '_load_row input'); |
207 |
ok($mfn, '_load_ds mfn'); |
ok($mfn, '_load_row mfn'); |
208 |
return { |
return { |
209 |
'900' => [{ x => '900x-' . $mfn , y => '900y-' . $mfn }], |
'900' => [{ x => '900x-' . $mfn , y => '900y-' . $mfn }], |
210 |
} |
} |
211 |
|
|
212 |
}), '_set_load_ds'); |
}), '_set_load_row'); |
213 |
|
|
214 |
my @v = qw/foo bar baz aaa bbb ccc ddd/; |
my @v = qw/foo bar baz aaa bbb ccc ddd/; |
215 |
|
|
233 |
|
|
234 |
my @lookup; |
my @lookup; |
235 |
|
|
236 |
ok(my @lookup = lookup( |
ok(@lookup = lookup( |
237 |
sub { |
sub { |
238 |
diag "in show"; |
diag "in show"; |
239 |
rec('900','x'); |
rec('900','x'); |
277 |
diag "lookup_hash1 = ", dump($lookup_hash1); |
diag "lookup_hash1 = ", dump($lookup_hash1); |
278 |
ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1'); |
ok(_set_lookup( $lookup_hash1 ), '_set_lookup $lookup_hash1'); |
279 |
|
|
280 |
throws_ok { _set_load_ds() } qr/CODE/, 'empty _set_load_ds()'; |
throws_ok { _set_load_row() } qr/CODE/, 'empty _set_load_row()'; |
281 |
|
|
282 |
ok(_set_load_ds(sub { |
ok(_set_load_row(sub { |
283 |
my ($database,$input,$mfn) = @_; |
my ($database,$input,$mfn) = @_; |
284 |
diag "load_ds( $database, $input, $mfn )"; |
diag "load_row( $database, $input, $mfn )"; |
285 |
cmp_ok( $#_, '==', 2, 'have 3 arguments'); |
cmp_ok( $#_, '==', 2, 'have 3 arguments'); |
286 |
ok($database, 'database'); |
ok($database, 'database'); |
287 |
ok($input, 'input'); |
ok($input, 'input'); |
288 |
ok($mfn, 'mfn'); |
ok($mfn, 'mfn'); |
289 |
|
|
290 |
}), '_set_load_ds'); |
}), '_set_load_row'); |
291 |
|
|
292 |
|
|
293 |
# cmp_ok(lookup( |
# cmp_ok(lookup( |