--- trunk/t/1-config.t 2006/09/24 17:49:05 687 +++ trunk/t/1-config.t 2006/09/24 18:52:31 688 @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use Test::More tests => 12; +use Test::More tests => 24; use Test::Exception; use blib; @@ -42,6 +42,8 @@ cmp_ok(@inputs, '==', 2, "got 2 webpac inputs"); $config->iterate_inputs(sub { - my $input = shift; - diag "input = ",dump($input); + my ($input,$database,$db_config) = @_; + isa_ok($input, 'HASH', 'input'); + ok($database, 'database'); + isa_ok($db_config, 'HASH', 'database config'); });