PXElator/t/config.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

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

use_ok 'config';

sub test {
        my $name = shift;
        eval 'config::' . $name . '( "172.0.0.1" );';
}

ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' );
1	dpavlin	74	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	142	use Test::More tests => 3;
8	dpavlin	74	use Data::Dump qw/dump/;
9
10			use_ok 'config';
11
12	dpavlin	142	sub test {
13			my $name = shift;
14			eval 'config::' . $name . '( "172.0.0.1" );';
15			}
16	dpavlin	74
17	dpavlin	142	ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' );