git.rot13.org Git - pxelator/blob - lib/PXElator/t/ip.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 13;
   8 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 ok( my @devs = ip::devices_up(), 'devices_up' );
  20 diag dump( @devs );
  21
  22 like( ip::default_route_dev(), qr/eth/, 'default_route_dev' );
  23
  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
  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
  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" );