4 |
use strict; |
use strict; |
5 |
use autodie; |
use autodie; |
6 |
|
|
7 |
use Test::More tests => 3; |
use Test::More tests => 5; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
use_ok 'server'; |
use_ok 'server'; |
13 |
diag $test; |
diag $test; |
14 |
cmp_ok( $test, '==', server::shared( 'test' ), 'get shared' ); |
cmp_ok( $test, '==', server::shared( 'test' ), 'get shared' ); |
15 |
|
|
16 |
|
cmp_ok( $test, '==', server::conf_default( 'test' ), 'get conf_default' ); |
17 |
|
|
18 |
|
ok( my $server = server::as_hash_for( '10.60.0.200' ), 'as_hash_for' ); |
19 |
|
diag dump $server; |