+#!/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" );