Parent Directory | Revision Log | Patch
revision 561 by dpavlin, Sat Jan 2 15:49:09 2010 UTC | revision 562 by dpavlin, Tue Jul 19 12:11:17 2011 UTC | |
---|---|---|
# | Line 19 foreach my $object ( qw/link route/ ) { | Line 19 foreach my $object ( qw/link route/ ) { |
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' ); | like( ip::default_route_dev(), qr/eth/, 'default_route_dev' ); |
23 | ||
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' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |