git.rot13.org Git - pxelator/blob - lib/PXElator/t/config.t

   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         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' ) {
  22         ok( my $config = test($name), $name );
  23         diag "config", $config;
  24 }