PXElator/t/config.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 4;
use Data::Dump qw/dump/;

use_ok 'config';

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;
}
1	dpavlin	74	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	268	use Test::More tests => 4;
8	dpavlin	74	use Data::Dump qw/dump/;
9
10			use_ok 'config';
11
12	dpavlin	142	sub test {
13			my $name = shift;
14	dpavlin	234	my $eval = qq\|config::$name( "172.0.0.1" );\|;
15			diag "eval $eval";
16			my $config = eval $eval;
17			die $@ if $@;
18			return $config;
19	dpavlin	142	}
20	dpavlin	74
21	dpavlin	268	foreach my $name ( 'webconverger', 'debian_live', 'nfsroot' ) {
22	dpavlin	234	ok( my $config = test($name), $name );
23			diag "config", $config;
24			}