PXElator/t/ip.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 10;
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 );

ok( ip::default_route_dev(), 'default_route_dev' );

ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );
ok( my $ip  = ip::from_int( $int ), 'from_int' );
cmp_ok( $ip, 'eq', '127.0.0.1', 'same' );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 10;
8	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	ok( my @devs = ip::devices_up(), 'devices_up' );
20	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' );