--- lib/PXElator/t/config.t 2009/08/04 17:29:59 141 +++ lib/PXElator/t/config.t 2009/08/04 18:05:49 142 @@ -4,11 +4,14 @@ use strict; use autodie; -use Test::More tests => 2; +use Test::More tests => 3; use Data::Dump qw/dump/; use_ok 'config'; -sub test { config::webconverger( '172.0.0.1' ) }; +sub test { + my $name = shift; + eval 'config::' . $name . '( "172.0.0.1" );'; +} -ok( test(), 'webconverger' ); +ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' );