/[pxelator]/lib/PXElator/t/config.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/config.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 142 by dpavlin, Tue Aug 4 18:05:49 2009 UTC revision 234 by dpavlin, Sun Aug 16 23:32:21 2009 UTC
# Line 11  use_ok 'config'; Line 11  use_ok 'config';
11    
12  sub test {  sub test {
13          my $name = shift;          my $name = shift;
14          eval 'config::' . $name . '( "172.0.0.1" );';          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  ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' );  foreach my $name ( 'webconverger', 'debian_live' ) {
22            ok( my $config = test($name), $name );
23            diag "config", $config;
24    }
Legend:
Removed from v.142  
changed lines
  Added in v.234
  ViewVC Help
Powered by ViewVC 1.1.26