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