From f97f84ecbe02223af61fc5ea5074a90b1194cdd2 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Mon, 1 Jul 2019 08:56:51 +0000
Subject: t/nntpd*.t: require IO::Socket::SSL 2.007 for Net::NNTP tests

Net::NNTP won't attempt to use older versions of IO::Socket::SSL
because 2.007 is the "first version with default CA on most platforms"
according to comments in Net::NNTP.  But then again we don't make
remote requests when testing...
---
 t/nntpd-tls.t | 2 ++
 t/nntpd.t     | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/t/nntpd-tls.t b/t/nntpd-tls.t
index 4cf53daa..49b31221 100644
--- a/t/nntpd-tls.t
+++ b/t/nntpd-tls.t
@@ -13,6 +13,8 @@ foreach my $mod (qw(DBD::SQLite IO::Socket::SSL Net::NNTP IO::Poll)) {
 }
 Net::NNTP->can('starttls') or
 	plan skip_all => 'Net::NNTP does not support TLS';
+IO::Socket::SSL->VERSION(2.007) or
+	plan skip_all => 'IO::Socket::SSL <2.007 not supported by Net::NNTP';
 
 my $cert = 'certs/server-cert.pem';
 my $key = 'certs/server-key.pem';
diff --git a/t/nntpd.t b/t/nntpd.t
index 1c5ae8d7..fdb4bee4 100644
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -104,6 +104,10 @@ EOF
 	SKIP: {
 		$n->can('starttls') or
 			skip('Net::NNTP too old to support STARTTLS', 2);
+		eval {
+			require IO::Socket::SSL;
+			IO::Socket::SSL->VERSION(2.007);
+		} or skip('IO::Socket::SSL <2.007 not supported by Net::NNTP');
 		ok(!$n->starttls, 'STARTTLS fails when unconfigured');
 		is($n->code, 580, 'got 580 code on server w/o TLS');
 	};
-- 
cgit v1.2.3-24-ge0c7