added debirf rescue

[pxelator] / lib / PXElator / t / config.t

diff --git a/lib/PXElator/t/config.t b/lib/PXElator/t/config.t
index 547596e..1c6bfe6 100755 (executable)
--- a/lib/PXElator/t/config.t
+++ b/lib/PXElator/t/config.t
@@ -4,11 +4,14 @@ use warnings;
 use strict;
 use autodie;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 use Data::Dump qw/dump/;
 
 use_ok 'config';
 
-sub test { config::webconverger( '172.0.0.1' ) };
+sub test {
+       my $name = shift;
+       eval 'config::' . $name . '( "172.0.0.1" );';
+}
 
-ok( test(), 'webconverger' );
+ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' );