Whitespace fixes

This commit is contained in:
Richard Hansen 2020-07-24 15:13:03 -04:00
parent 532589219f
commit 92a7590846

View file

@ -41,7 +41,7 @@ sub run_httpd {
); );
$httpd->run(sub { $httpd->run(sub {
# Echo back the full request. # Echo back the full request.
return [ 200, [ 'Content-Type' => 'application/octet-stream' ], [ $_[0]->as_string() ] ]; return [200, ['Content-Type' => 'application/octet-stream'], [$_[0]->as_string()]];
}); });
diag(sprintf("started IPv%s%s server running at %s", diag(sprintf("started IPv%s%s server running at %s",
$ipv6 ? '6' : '4', $ssl ? ' SSL' : '', $httpd->endpoint())); $ipv6 ? '6' : '4', $ssl ? ' SSL' : '', $httpd->endpoint()));
@ -49,26 +49,26 @@ sub run_httpd {
} }
my %httpd = ( my %httpd = (
'4' => { 'http' => run_httpd(0, 0), 'https' => run_httpd(0, 1) }, '4' => {'http' => run_httpd(0, 0), 'https' => run_httpd(0, 1)},
'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. # 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 }, {ipv6_opt => 0, client_ipv => '', server_ipv => '4', ssl => 0},
{ ipv6_opt => 0, client_ipv => '', server_ipv => '4', ssl => 1 }, {ipv6_opt => 0, client_ipv => '', server_ipv => '4', ssl => 1},
{ ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 0 }, {ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 0},
{ ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 1 }, {ipv6_opt => 0, client_ipv => '4', server_ipv => '4', ssl => 1},
{ ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 0 }, {ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 0},
{ ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 1 }, {ipv6_opt => 0, client_ipv => '6', server_ipv => '6', ssl => 1},
{ ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 0 }, {ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 0},
{ ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 1 }, {ipv6_opt => 1, client_ipv => '', server_ipv => '4', ssl => 1},
{ ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 0 }, {ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 0},
{ ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 1 }, {ipv6_opt => 1, client_ipv => '', server_ipv => '6', ssl => 1},
{ ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 0 }, {ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 0},
{ ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 1 }, {ipv6_opt => 1, client_ipv => '4', server_ipv => '4', ssl => 1},
{ ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 0 }, {ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 0},
{ ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 1 }, {ipv6_opt => 1, client_ipv => '6', server_ipv => '6', ssl => 1},
); );
for my $tc (@test_cases) { for my $tc (@test_cases) {