1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use Test::More tests => 12; |
use Test::More tests => 28; |
5 |
use Test::Exception; |
use Test::Exception; |
6 |
use blib; |
use blib; |
7 |
|
|
40 |
diag "inputs = ",dump( @inputs ) if ($debug); |
diag "inputs = ",dump( @inputs ) if ($debug); |
41 |
isa_ok(\@inputs, 'ARRAY', "inputs"); |
isa_ok(\@inputs, 'ARRAY', "inputs"); |
42 |
cmp_ok(@inputs, '==', 2, "got 2 webpac inputs"); |
cmp_ok(@inputs, '==', 2, "got 2 webpac inputs"); |
43 |
|
|
44 |
|
$config->iterate_inputs(sub { |
45 |
|
my ($input,$database,$db_config) = @_; |
46 |
|
isa_ok($input, 'HASH', 'input'); |
47 |
|
ok($database, 'database'); |
48 |
|
isa_ok($db_config, 'HASH', 'database config'); |
49 |
|
isa_ok($input->{normalize}, 'ARRAY', 'normalize'); |
50 |
|
}); |