/[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 278 by dpavlin, Thu Aug 20 19:44:19 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 => 10;
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' );
Legend:
Removed from v.265  
changed lines
  Added in v.278
  ViewVC Help
Powered by ViewVC 1.1.26