PXElator/t/ip.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 6;
use Data::Dump qw/dump/;

use_ok 'ip';

foreach my $object ( qw/link route/ ) {
        ok( my @a = ip::lines( $object ), "lines $object" );
        diag dump( @a );
        ok( my $h = ip::html( $object ), "html $object" );
        diag $h;
}

ok( my @devs = ip::devices_up(), 'devices_up' );
diag dump( @devs );
1	dpavlin	224	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	265	use Test::More tests => 6;
8	dpavlin	224	use Data::Dump qw/dump/;
9
10			use_ok 'ip';
11
12			foreach my $object ( qw/link route/ ) {
13			ok( my @a = ip::lines( $object ), "lines $object" );
14			diag dump( @a );
15			ok( my $h = ip::html( $object ), "html $object" );
16			diag $h;
17			}
18
19	dpavlin	265	ok( my @devs = ip::devices_up(), 'devices_up' );
20			diag dump( @devs );