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	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 4;
8	use Data::Dump qw/dump/;
9
10	use_ok 'config';
11
12	sub test {
13	my $name = shift;
14	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	}
20
21	foreach my $name ( 'webconverger', 'debian_live', 'nfsroot' ) {
22	ok( my $config = test($name), $name );
23	diag "config", $config;
24	}