6 use Test::More tests => 28;
9 use_ok( 'WebPAC::Test' );
10 use_ok( 'WebPAC::Config' );
13 my $path = "$abs_path/conf/test.yml";
15 ok(my $config = new WebPAC::Config( path => $path ), "new");
17 cmp_ok($config->{path}, 'eq', $path, "path $path");
19 ok($config->{config}, "config exist");
23 isa_ok($config->databases, 'HASH', "databases");
24 my @names = $config->databases;
25 isa_ok(\@names, 'ARRAY', "databases names");
26 cmp_ok(@names, '==', 3, "got 3 names");
27 isa_ok($config->databases, 'HASH', "databases");
29 diag '$config->webpac = ', dump($config->webpac) if ($debug);
31 isa_ok($config->webpac, 'HASH', "webpac");
32 my @inputs = $config->webpac('inputs');
33 diag "inputs = ",dump( @inputs ) if ($debug);
34 isa_ok(\@inputs, 'ARRAY', "inputs");
35 cmp_ok(@inputs, '==', 2, "got 2 webpac inputs");
37 $config->iterate_inputs(sub {
38 my ($input,$database,$db_config) = @_;
39 isa_ok($input, 'HASH', 'input');
40 ok($database, 'database');
41 isa_ok($db_config, 'HASH', 'database config');
42 isa_ok($input->{normalize}, 'ARRAY', 'normalize');