PXElator/t/client.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

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

use_ok 'client';

my $host = '127.0.0.1';
my $mac  = 'DE:AD:00:00:BE:EF';

my $dir = "$server::base_dir/conf/$server::ip";
system "sudo chown $UID $dir/ip $dir/mac";

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( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );

ok( client::remove( $host ), "remove $host" );

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

ok( my $ip_from_mac = client::ip_from_mac( $mac ), 'ip_from_mac' );
diag $ip_from_mac;
cmp_ok( $ip_from_mac, 'eq', $ip );

ok( my $mac_from_ip = client::mac_from_ip( $ip ), 'mac_from_ip' );
diag $mac_from_ip;
cmp_ok( $mac_from_ip, 'eq', $mac );

ok( my $conf = client::all_conf( $ip ), 'all_conf' );
diag dump $conf;

ok( my @ips = client::all_ips(), 'all_ips' );
diag dump @ips;

ok( my $new_ip = client::change_ip( $ip, $host ), 'change_ip' );
ok( ! client::change_ip( $new_ip, $new_ip ), 'change_ip without change' );
ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' );
cmp_ok( $old_ip, 'eq', $ip, 'ip back' );

ok( client::remove( $ip ), "remove $ip" );
1	dpavlin	156	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	323	use Test::More tests => 19;
8	dpavlin	156	use Data::Dump qw/dump/;
9	dpavlin	217	use English;
10	dpavlin	156
11			use_ok 'client';
12
13			my $host = '127.0.0.1';
14	dpavlin	313	my $mac = 'DE:AD:00:00:BE:EF';
15	dpavlin	156
16	dpavlin	217	my $dir = "$server::base_dir/conf/$server::ip";
17			system "sudo chown $UID $dir/ip $dir/mac";
18
19	dpavlin	156	ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );
20			cmp_ok( client::conf( $host => 'test' ), 'eq', 'default', 'default' );
21			ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
22			cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );
23
24	dpavlin	220	ok( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );
25
26	dpavlin	323	ok( client::remove( $host ), "remove $host" );
27
28	dpavlin	217	ok( my $ip = client::next_ip( $mac ), 'next_ip' );
29	dpavlin	168	diag $ip;
30
31	dpavlin	217	ok( my $ip_from_mac = client::ip_from_mac( $mac ), 'ip_from_mac' );
32			diag $ip_from_mac;
33			cmp_ok( $ip_from_mac, 'eq', $ip );
34	dpavlin	194
35	dpavlin	217	ok( my $mac_from_ip = client::mac_from_ip( $ip ), 'mac_from_ip' );
36			diag $mac_from_ip;
37			cmp_ok( $mac_from_ip, 'eq', $mac );
38	dpavlin	200
39	dpavlin	305	ok( my $conf = client::all_conf( $ip ), 'all_conf' );
40			diag dump $conf;
41
42	dpavlin	322	ok( my @ips = client::all_ips(), 'all_ips' );
43			diag dump @ips;
44
45	dpavlin	323	ok( my $new_ip = client::change_ip( $ip, $host ), 'change_ip' );
46			ok( ! client::change_ip( $new_ip, $new_ip ), 'change_ip without change' );
47			ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' );
48			cmp_ok( $old_ip, 'eq', $ip, 'ip back' );
49
50			ok( client::remove( $ip ), "remove $ip" );