Parent Directory
|
Revision Log
|
Patch
revision 74 by dpavlin, Fri Jul 31 13:16:11 2009 UTC | revision 142 by dpavlin, Tue Aug 4 18:05:49 2009 UTC | |
---|---|---|
# | Line 9 use Data::Dump qw/dump/; | Line 9 use Data::Dump qw/dump/; |
9 | ||
10 | use_ok 'config'; | use_ok 'config'; |
11 | ||
12 | ok( my $test = config::shared( 'test', 42 ), 'set shared' ); | sub test { |
13 | diag $test; | my $name = shift; |
14 | cmp_ok( $test, '==', config::shared( 'test' ), 'get shared' ); | eval 'config::' . $name . '( "172.0.0.1" );'; |
15 | } | |
16 | ||
17 | ok( test($_), $_ ) foreach ( 'webconverger', 'debirf' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |