PXElator/t/client.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

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

use_ok 'client';

my $host = '127.0.0.1';
my $test_path = "$server::base_dir/conf/$server::ip/ip/$host/test";
unlink $test_path if -e $test_path;

ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );
cmp_ok( client::conf( $host => 'test' ), 'eq', 'default', 'default' );
ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );

diag "cleanup";
ok( unlink($test_path), "unlink $test_path" );
$test_path =~ s{/[^/]+$}{};
ok( rmdir($test_path), "rmdir $test_path" );
1	dpavlin	156	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use Test::More tests => 7;
8			use Data::Dump qw/dump/;
9
10			use_ok 'client';
11
12			my $host = '127.0.0.1';
13			my $test_path = "$server::base_dir/conf/$server::ip/ip/$host/test";
14			unlink $test_path if -e $test_path;
15
16			ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );
17			cmp_ok( client::conf( $host => 'test' ), 'eq', 'default', 'default' );
18			ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
19			cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );
20
21			diag "cleanup";
22			ok( unlink($test_path), "unlink $test_path" );
23			$test_path =~ s{/[^/]+$}{};
24			ok( rmdir($test_path), "rmdir $test_path" );