Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Group tests by IO::Socket class

Browse source 
Also delete some redundant SSL tests.
This commit is contained in:
Richard Hansen 2020-07-24 15:20:48 -04:00
parent b46d064f55
commit 310810c291
1 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
t/geturl_connectivity.pl
View file

@ -53,25 +53,29 @@ my %httpd = (
'6' => {'http' => run_httpd(1, 0), 'https' => run_httpd(1, 1)}, '6' => {'http' => run_httpd(1, 0), 'https' => run_httpd(1, 1)},
); );
# Note: IPv* client to IPv6 server is not expected to work unless $globals{'ipv6'} is true.
my @test_cases = ( my @test_cases = (
{ipv6_opt => 0, client_ipv => '', server_ipv => '4', ssl => 0}, # Fetch via IO::Socket::INET
{ipv6_opt => 0, client_ipv => '', server_ipv => '4', ssl => 1}, {ipv6_opt => 0, server_ipv => '4', client_ipv => ''},
{ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 0}, {ipv6_opt => 0, server_ipv => '4', client_ipv => '4'},
{ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 1}, # IPv* client to a non-SSL IPv6 server is not expected to work unless opt('ipv6') is true
{ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 0}, {ipv6_opt => 0, server_ipv => '6', client_ipv => '6'},
{ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 1},
{ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 0}, # Fetch via IO::Socket::INET6
{ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 1}, {ipv6_opt => 1, server_ipv => '4', client_ipv => ''},
{ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 0}, {ipv6_opt => 1, server_ipv => '4', client_ipv => '4'},
{ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 1}, {ipv6_opt => 1, server_ipv => '6', client_ipv => ''},
{ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 0}, {ipv6_opt => 1, server_ipv => '6', client_ipv => '6'},
{ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 1},
{ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 0}, # Fetch via IO::Socket::SSL
{ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 1}, {ssl => 1, server_ipv => '4', client_ipv => ''},
{ssl => 1, server_ipv => '4', client_ipv => '4'},
{ssl => 1, server_ipv => '6', client_ipv => ''},
{ssl => 1, server_ipv => '6', client_ipv => '6'},
); );
for my $tc (@test_cases) { for my $tc (@test_cases) {
$tc->{ipv6_opt} //= 0;
$tc->{ssl} //= 0;
SKIP: { SKIP: {
skip("IO::Socket::INET6 not available", 1) skip("IO::Socket::INET6 not available", 1)
if ($tc->{ipv6_opt} || $tc->{client_ipv} eq '6') && !$has_io_socket_inet6; if ($tc->{ipv6_opt} || $tc->{client_ipv} eq '6') && !$has_io_socket_inet6;