PXElator/t/ip.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

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

use_ok 'ip';

foreach my $object ( qw/link route/ ) {
        ok( my @a = ip::lines( $object ), "lines $object" );
        diag dump( @a );
        ok( my $h = ip::html( $object ), "html $object" );
        diag $h;
}

ok( my @devs = ip::devices_up(), 'devices_up' );
diag dump( @devs );

like( ip::default_route_dev(), qr/eth/, 'default_route_dev' );

ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );
ok( my $ip  = ip::from_int( $int ), 'from_int' );
cmp_ok( $ip, 'eq', '127.0.0.1', 'same' );

my $ip_in_range = ip::to_int($server::ip) & ip::to_int($server::netmask);
$ip_in_range += $server::ip_from;
$ip_in_range = ip::from_int($ip_in_range);

ok(   ip::in_dhcp_range( $ip_in_range ), "in_dhcp_range $ip_in_range" );
ok( ! ip::in_dhcp_range( '4.2.2.2' ), 'not in_dhcp_range' );

my $force_dhcp_ip = '10.60.0.200';
ok(   ip::in_dhcp_range( $force_dhcp_ip ), "force in_dhcp_range $force_dhcp_ip" );
1	dpavlin	224	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	456	use Test::More tests => 13;
8	dpavlin	224	use Data::Dump qw/dump/;
9
10			use_ok 'ip';
11
12			foreach my $object ( qw/link route/ ) {
13			ok( my @a = ip::lines( $object ), "lines $object" );
14			diag dump( @a );
15			ok( my $h = ip::html( $object ), "html $object" );
16			diag $h;
17			}
18
19	dpavlin	265	ok( my @devs = ip::devices_up(), 'devices_up' );
20			diag dump( @devs );
21	dpavlin	278
22	dpavlin	562	like( ip::default_route_dev(), qr/eth/, 'default_route_dev' );
23	dpavlin	278
24			ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );
25			ok( my $ip = ip::from_int( $int ), 'from_int' );
26			cmp_ok( $ip, 'eq', '127.0.0.1', 'same' );
27	dpavlin	413
28			my $ip_in_range = ip::to_int($server::ip) & ip::to_int($server::netmask);
29			$ip_in_range += $server::ip_from;
30			$ip_in_range = ip::from_int($ip_in_range);
31
32			ok( ip::in_dhcp_range( $ip_in_range ), "in_dhcp_range $ip_in_range" );
33			ok( ! ip::in_dhcp_range( '4.2.2.2' ), 'not in_dhcp_range' );
34	dpavlin	456
35			my $force_dhcp_ip = '10.60.0.200';
36			ok( ip::in_dhcp_range( $force_dhcp_ip ), "force in_dhcp_range $force_dhcp_ip" );