PXElator/t/client.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 9;
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' );

ok( my $ip = client::next_ip(), 'next_ip' );
diag $ip;

diag "cleanup";
ok( unlink($test_path), "unlink $test_path" );
$test_path =~ s{/[^/]+$}{};
ok( rmdir($test_path), "rmdir $test_path" );

ok( my $ip = client::ip_from_mac( 'AC:DE:48:00:00:00' ), 'ip_from_mac' );
diag $ip;

ok( my $mac = client::mac_from_ip( $ip ), 'mac_from_ip' );
diag $mac;
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 9;
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	ok( my $ip = client::next_ip(), 'next_ip' );
22	diag $ip;
23
24	diag "cleanup";
25	ok( unlink($test_path), "unlink $test_path" );
26	$test_path =~ s{/[^/]+$}{};
27	ok( rmdir($test_path), "rmdir $test_path" );
28
29	ok( my $ip = client::ip_from_mac( 'AC:DE:48:00:00:00' ), 'ip_from_mac' );
30	diag $ip;
31
32	ok( my $mac = client::mac_from_ip( $ip ), 'mac_from_ip' );
33	diag $mac;