use Data::Dumper;
use Test::More tests => 46;
use_ok 'Rex::Hardware::Network::Linux';
use_ok 'Rex::Helper::Hash';

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

ok( $info->{eth0}->{broadcast} eq "10.18.1.255", "ex1 / broadcast" );
ok( $info->{eth0}->{ip} eq "10.18.1.107",        "ex1 / ip" );
ok( $info->{eth0}->{netmask} eq "255.255.255.0", "ex1 / netmask" );
ok( $info->{eth0}->{mac} eq "00:16:3e:7f:fc:3a", "ex1 / mac" );

my $f = {};
hash_flatten( $info, $f, "_" );
ok( $f->{eth0_mac} eq "00:16:3e:7f:fc:3a", "ex1 / flatten / mac" );
ok( $f->{eth0_ip} eq "10.18.1.107",        "ex1 / flatten / ip" );
ok( $f->{eth0_netmask} eq "255.255.255.0", "ex1 / flatten / netmask" );
ok( $f->{eth0_broadcast} eq "10.18.1.255", "ex1 / flatten / broadcast" );

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

ok( !$info->{"vif1.0"}->{broadcast},                 "ex2 / broadcast" );
ok( !$info->{"vif1.0"}->{ip},                        "ex2 / ip" );
ok( !$info->{"vif1.0"}->{netmask},                   "ex2 / netmask" );
ok( $info->{"vif1.0"}->{mac} eq "fe:ff:ff:ff:ff:ff", "ex2 / mac" );

$f = {};
hash_flatten( $info, $f, "_" );
ok( $f->{"vif1_0_mac"} eq "fe:ff:ff:ff:ff:ff", "ex2 / flatten / mac" );
ok( !$f->{"vif1_0_ip"},                        "ex2 / flatten / ip" );
ok( !$f->{"vif1_0_netmask"},                   "ex2 / flatten / netmask" );
ok( !$f->{"vif1_0_broadcast"},                 "ex2 / flatten / broadcast" );

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

is( $info->{wlp2s0}->{ip},        "10.20.30.40",       "ip / ip" );
is( $info->{wlp2s0}->{netmask},   "255.255.255.0",     "ip / netmask" );
is( $info->{wlp2s0}->{broadcast}, "10.20.30.255",      "ip / broadcast" );
is( $info->{wlp2s0}->{mac},       "aa:bb:cc:dd:ee:ff", "ip / mac" );

$f = {};
hash_flatten( $info, $f, "_" );
is( $f->{"wlp2s0_mac"},       "aa:bb:cc:dd:ee:ff", "ip / flatten / mac" );
is( $f->{"wlp2s0_ip"},        "10.20.30.40",       "ip / flatten / ip" );
is( $f->{"wlp2s0_netmask"},   "255.255.255.0",     "ip / flatten / netmask" );
is( $f->{"wlp2s0_broadcast"}, "10.20.30.255",      "ip / flatten / broadcast" );

$info = {};
@in   = eval { local (@ARGV) = ("t/ip.out2"); <>; };
$info = Rex::Hardware::Network::Linux::_parse_ip(@in);
is( $info->{eth1}->{ip},        "",                  "ip / ip" );
is( $info->{eth1}->{netmask},   "",                  "ip / netmask" );
is( $info->{eth1}->{broadcast}, "",                  "ip / broadcast" );
is( $info->{eth1}->{mac},       "00:1c:42:73:ad:3c", "ip / mac" );

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

ok( $info->{eth0}->{broadcast} eq "192.168.112.255",
  "(fc19) eth0 / broadcast" );
ok( $info->{eth0}->{ip} eq "192.168.112.182",    "(fc19) eth0 / ip" );
ok( $info->{eth0}->{netmask} eq "255.255.255.0", "(fc19) eth0 / netmask" );
ok( $info->{eth0}->{mac} eq "52:54:00:37:a8:e1", "(fc19) eth0 / mac" );

ok( $info->{"eth0:1"}->{broadcast} eq "1.2.255.255",
  "(fc19) eth0:1 / broadcast" );
ok( $info->{"eth0:1"}->{ip} eq "1.2.3.4",          "(fc19) eth0:1 / ip" );
ok( $info->{"eth0:1"}->{netmask} eq "255.255.0.0", "(fc19) eth0:1 / netmask" );
ok( $info->{"eth0:1"}->{mac} eq "52:54:00:37:a8:e1", "(fc19) eth0:1 / mac" );

@in = eval { local (@ARGV) = ("t/ifconfig.out7"); <>; };
$info = Rex::Hardware::Network::Linux::_parse_ifconfig(@in);
ok( $info->{ppp0}->{ip} eq "123.117.251.17",       "ppp0 / ip" );
ok( $info->{ppp0}->{netmask} eq "255.255.255.255", "ppp0 / netmask" );
ok( $info->{ppp0}->{broadcast} eq "",              "ppp0 / broadcast" );
ok( $info->{ppp0}->{mac} eq "",                    "ppp0 / mac" );

@in = eval { local (@ARGV) = ("t/ip.out3"); <>; };
$info = Rex::Hardware::Network::Linux::_parse_ip(@in);
ok( $info->{ppp0}->{ip} eq "123.117.251.17",       "ppp0 / ip" );
ok( $info->{ppp0}->{netmask} eq "255.255.255.255", "ppp0 / netmask" );
ok( $info->{ppp0}->{broadcast} eq "",              "ppp0 / broadcast" );
ok( $info->{ppp0}->{mac} eq "",                    "ppp0 / mac" );