PXElator/t/server.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 5;
use Data::Dump qw/dump/;

use_ok 'server';

ok( my $test = server::shared( 'test', 42 ), 'set shared' );
diag $test;
cmp_ok( $test, '==', server::shared( 'test' ), 'get shared' );

cmp_ok( $test, '==', server::conf_default( 'test' ), 'get conf_default' );

ok( my $server = server::as_hash_for( '10.60.0.200' ), 'as_hash_for' );
diag dump $server;
1	dpavlin	138	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	457	use Test::More tests => 5;
8	dpavlin	138	use Data::Dump qw/dump/;
9
10			use_ok 'server';
11
12			ok( my $test = server::shared( 'test', 42 ), 'set shared' );
13			diag $test;
14			cmp_ok( $test, '==', server::shared( 'test' ), 'get shared' );
15
16	dpavlin	270	cmp_ok( $test, '==', server::conf_default( 'test' ), 'get conf_default' );
17
18	dpavlin	457	ok( my $server = server::as_hash_for( '10.60.0.200' ), 'as_hash_for' );
19			diag dump $server;