/[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 265 by dpavlin, Wed Aug 19 12:46:07 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 => 6;  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 18  foreach my $object ( qw/link route/ ) { Line 18  foreach my $object ( qw/link route/ ) {
18    
19  ok( my @devs = ip::devices_up(), 'devices_up' );  ok( my @devs = ip::devices_up(), 'devices_up' );
20  diag dump( @devs );  diag dump( @devs );
21    
22    ok( ip::default_route_dev(), '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' );
Legend:
Removed from v.265  
changed lines
  Added in v.413
  ViewVC Help
Powered by ViewVC 1.1.26