--- lib/PXElator/t/config.t 2009/07/31 13:16:11 74 +++ lib/PXElator/t/config.t 2009/08/19 17:01:57 268 @@ -4,12 +4,21 @@ use strict; use autodie; -use Test::More tests => 3; +use Test::More tests => 4; use Data::Dump qw/dump/; use_ok 'config'; -ok( my $test = config::shared( 'test', 42 ), 'set shared' ); -diag $test; -cmp_ok( $test, '==', config::shared( 'test' ), 'get shared' ); +sub test { + my $name = shift; + my $eval = qq|config::$name( "172.0.0.1" );|; + diag "eval $eval"; + my $config = eval $eval; + die $@ if $@; + return $config; +} +foreach my $name ( 'webconverger', 'debian_live', 'nfsroot' ) { + ok( my $config = test($name), $name ); + diag "config", $config; +}