From a86f40ae9b06d8bc9d7eba8ae8b34dec69039fbf Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Fri, 10 Jul 2020 23:10:56 -0400
Subject: [PATCH] Skip IPv6 tests if IO::Socket::INET6 isn't available

Fixes #251
---
 configure.ac             | 1 +
 t/geturl_connectivity.pl | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/configure.ac b/configure.ac
index e0dc09a..94b62b3 100644
--- a/configure.ac
+++ b/configure.ac
@@ -66,6 +66,7 @@ m4_foreach_w([_m], [
     HTTP::Message::PSGI
     HTTP::Request
     HTTP::Response
+    IO::Socket::INET6
     IO::Socket::IP
     Scalar::Util
     Test::MockModule
diff --git a/t/geturl_connectivity.pl b/t/geturl_connectivity.pl
index 1a35d76..aa24422 100644
--- a/t/geturl_connectivity.pl
+++ b/t/geturl_connectivity.pl
@@ -3,6 +3,7 @@ eval { require ddclient::Test::Fake::HTTPD; } or plan(skip_all => $@);
 SKIP: { eval { require Test::Warnings; } or skip($@, 1); }
 eval { require 'ddclient'; } or BAIL_OUT($@);
 my $has_http_daemon_ssl = eval { require HTTP::Daemon::SSL; };
+my $has_io_socket_inet6 = eval { require IO::Socket::INET6; };
 my $ipv6_supported = eval {
     require IO::Socket::IP;
     my $ipv6_socket = IO::Socket::IP->new(
@@ -72,6 +73,8 @@ my @test_cases = (
 
 for my $tc (@test_cases) {
     SKIP: {
+        skip("IO::Socket::INET6 not available", 1)
+            if ($tc->{ipv6_opt} || $tc->{client_ipv} eq '6') && !$has_io_socket_inet6;
         skip("IPv6 not supported on this system", 1)
             if $tc->{server_ipv} eq '6' && !$ipv6_supported;
         skip("HTTP::Daemon too old for IPv6 support", 1)