/[pxelator]/lib/PXElator/t/ip.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/ip.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 412 by dpavlin, Thu Aug 20 19:44:19 2009 UTC revision 413 by dpavlin, Wed Sep 9 14:27:02 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5  use autodie;  use autodie;
6    
7  use Test::More tests => 10;  use Test::More tests => 12;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use_ok 'ip';  use_ok 'ip';
# Line 24  ok( ip::default_route_dev(), 'default_ro Line 24  ok( ip::default_route_dev(), 'default_ro
24  ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );  ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );
25  ok( my $ip  = ip::from_int( $int ), 'from_int' );  ok( my $ip  = ip::from_int( $int ), 'from_int' );
26  cmp_ok( $ip, 'eq', '127.0.0.1', 'same' );  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' );
Legend:
Removed from v.412  
changed lines
  Added in v.413
  ViewVC Help
Powered by ViewVC 1.1.26