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 => 24; |
5 |
use Test::Exception; |
use Test::Exception; |
6 |
use blib; |
use blib; |
7 |
|
|
42 |
cmp_ok(@inputs, '==', 2, "got 2 webpac inputs"); |
cmp_ok(@inputs, '==', 2, "got 2 webpac inputs"); |
43 |
|
|
44 |
$config->iterate_inputs(sub { |
$config->iterate_inputs(sub { |
45 |
my $input = shift; |
my ($input,$database,$db_config) = @_; |
46 |
diag "input = ",dump($input); |
isa_ok($input, 'HASH', 'input'); |
47 |
|
ok($database, 'database'); |
48 |
|
isa_ok($db_config, 'HASH', 'database config'); |
49 |
}); |
}); |