diff --git a/t/get_ip_from_if.pl b/t/get_ip_from_if.pl index 6f08e5d..1b1cd35 100644 --- a/t/get_ip_from_if.pl +++ b/t/get_ip_from_if.pl @@ -39,7 +39,7 @@ subtest "get_ip_from_interface tests" => sub { } }; -subtest "Get default interface and IP for test system" => sub { +subtest "Get default interface and IP for test system (IPv4)" => sub { my $interface = ddclient::get_default_interface(4); if ($interface) { isnt($interface, "lo", "Check for loopback 'lo'"); @@ -49,7 +49,10 @@ subtest "Get default interface and IP for test system" => sub { is($ip1, $ip2, "Check IPv4 from default interface"); ok(ddclient::is_ipv4($ip1), "Valid IPv4 from get_ip_from_interface($interface)"); } - $interface = ddclient::get_default_interface(6); +}; + +subtest "Get default interface and IP for test system (IPv6)" => sub { + my $interface = ddclient::get_default_interface(6); if ($interface) { isnt($interface, "lo", "Check for loopback 'lo'"); isnt($interface, "lo0", "Check for loopback 'lo0'");