Parent Directory | Revision Log | Patch
revision 224 by dpavlin, Sat Aug 15 22:38:02 2009 UTC | revision 265 by dpavlin, Wed Aug 19 12:46:07 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 => 5; | use Test::More tests => 6; |
8 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
9 | ||
10 | use_ok 'ip'; | use_ok 'ip'; |
# | Line 16 foreach my $object ( qw/link route/ ) { | Line 16 foreach my $object ( qw/link route/ ) { |
16 | diag $h; | diag $h; |
17 | } | } |
18 | ||
19 | ok( my @devs = ip::devices_up(), 'devices_up' ); | |
20 | diag dump( @devs ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |