Parent Directory | Revision Log | Patch
revision 233 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 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |