The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Data::Dumper;
use Test::More tests => 7;
use_ok 'Rex::Hardware::Network::Linux';

my @in = eval { local (@ARGV) = ("t/ip.out_centos7"); <>; };
my $info = Rex::Hardware::Network::Linux::_parse_ip(@in);

ok( $info->{lo}->{netmask} eq '255.0.0.0', 'loopback netmask' );
ok( $info->{lo}->{ip} eq '127.0.0.1',      'loopback ip' );

ok( $info->{eth0}->{ip} eq '10.211.55.171',        'eth0 ip' );
ok( $info->{eth0}->{netmask} eq '255.255.255.0',   'eth0 netmask' );
ok( $info->{eth0}->{broadcast} eq '10.211.55.255', 'eth0 broadcast' );
ok( $info->{eth0}->{mac} eq '00:1c:42:fe:5a:b5',   'eth0 mac' );

@in = eval { local (@ARGV) = ("t/ip.out_centos7_alias"); <>; };
$info = Rex::Hardware::Network::Linux::_parse_ip(@in);

1;