Parent Directory | Revision Log | Patch
revision 135 by dpavlin, Tue Aug 4 13:19:08 2009 UTC | revision 138 by dpavlin, Tue Aug 4 15:25:09 2009 UTC | |
---|---|---|
# | Line 4 use warnings; | Line 4 use warnings; |
4 | use strict; | use strict; |
5 | use autodie; | use autodie; |
6 | ||
7 | use Test::More tests => 4; | use Test::More tests => 2; |
8 | use Data::Dump qw/dump/; | 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 { config::webconverger( '172.0.0.1' ) }; |
diag $test; | ||
cmp_ok( $test, '==', config::shared( 'test' ), 'get shared' ); | ||
13 | ||
14 | ok( config::webconverger(), 'webconverger' ); | ok( test(), 'webconverger' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |