moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 15:48:49 -05:00
Code Issues Releases Wiki Activity

tests: fix the HTTP/2 tests

Browse Source 
The HTTP/2 tests brought with commit bf05606ef1 were using the internal
name 'http2' for the HTTP/2 server, while in fact that name was already
used for the second instance of the HTTP server. This made tests using
the second instance (like test 2050) fail after a HTTP/2 test had run.

The server is now known as HTTP/2 internally and within the <server>
section in test cases. 1700, 1701 and 1702 were updated accordingly.
This commit is contained in:
Daniel Stenberg 2016-06-19 23:52:01 +02:00
parent bb4e7921e7
commit 5f2e3b8867
6 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/FILEFORMAT
View File

@ -181,6 +181,7 @@ http-unix
https
httptls+srp
httptls+srp-ipv6
http/2
imap
none
pop3

2
tests/data/test1700
View File

@ -40,7 +40,7 @@ Content-Type: text/html
<client>
<server>
http
http2
http/2
</server>
<name>
HTTP/2 GET with Upgrade:

2
tests/data/test1701
View File

@ -31,7 +31,7 @@ Funny-head: yesyes
<client>
<server>
http
http2
http/2
</server>
<name>
HTTP/2 POST with Upgrade:

2
tests/data/test1702
View File

@ -30,7 +30,7 @@ Funny-head: yesyes
<client>
<server>
http
http2
http/2
</server>
<name>
HTTP/2 HEAD with Upgrade:

20
tests/runtests.pl
View File

@ -367,7 +367,7 @@ delete $ENV{'CURL_CA_BUNDLE'} if($ENV{'CURL_CA_BUNDLE'});
# Load serverpidfile hash with pidfile names for all possible servers.
#
sub init_serverpidfile_hash {
for my $proto (('ftp', 'http', 'imap', 'pop3', 'smtp')) {
for my $proto (('ftp', 'http', 'imap', 'pop3', 'smtp', 'http/2')) {
for my $ssl (('', 's')) {
for my $ipvnum ((4, 6)) {
for my $idnum ((1, 2, 3)) {
@ -387,7 +387,7 @@ sub init_serverpidfile_hash {
}
}
}
for my $proto (('http', 'imap', 'pop3', 'smtp')) {
for my $proto (('http', 'imap', 'pop3', 'smtp', 'http/2')) {
for my $ssl (('', 's')) {
my $serv = servername_id("$proto$ssl", "unix", 1);
my $pidf = server_pidfilename("$proto$ssl", "unix", 1);
@ -1200,7 +1200,7 @@ sub runhttp2server {
my $pidfile;
my $logfile;
my $flags = "";
my $proto="http2";
my $proto="http/2";
my $ipvnum = 4;
my $idnum = 0;
my $exe = "$perl $srcdir/http2-server.pl";
@ -2543,7 +2543,7 @@ sub checksystem {
# http2 enabled
$has_http2=1;
push @protocols, 'http2';
push @protocols, 'http/2';
}
}
#
@ -3032,7 +3032,7 @@ sub singletest {
next;
}
}
elsif($1 eq "http2") {
elsif($1 eq "http/2") {
if($has_http2) {
next;
}
@ -4255,7 +4255,7 @@ sub startservers {
for(@what) {
my (@whatlist) = split(/\s+/,$_);
my $what = lc($whatlist[0]);
$what =~ s/[^a-z0-9-]//g;
$what =~ s/[^a-z0-9\/-]//g;
my $certfile;
if($what =~ /^(ftp|http|imap|pop3|smtp)s((\d*)(-ipv6|-unix|))$/) {
@ -4341,15 +4341,15 @@ sub startservers {
$run{'gopher-ipv6'}="$pid $pid2";
}
}
elsif($what eq "http2") {
if(!$run{'http2'}) {
elsif($what eq "http/2") {
if(!$run{'http/2'}) {
($pid, $pid2) = runhttp2server($verbose, $HTTP2PORT);
if($pid <= 0) {
return "failed starting HTTP/2 server";
}
logmsg sprintf ("* pid http => %d %d\n", $pid, $pid2)
logmsg sprintf ("* pid http/2 => %d %d\n", $pid, $pid2)
if($verbose);
$run{'http2'}="$pid $pid2";
$run{'http/2'}="$pid $pid2";
}
}
elsif($what eq "http") {

3
tests/serverhelp.pm
View File

@ -105,7 +105,7 @@ sub servername_str {
$proto = uc($proto) if($proto);
die "unsupported protocol: '$proto'" unless($proto &&
($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|GOPHER|HTTPTLS|HTTP2))$/));
($proto =~ /^(((FTP|HTTP|HTTP\/2|IMAP|POP3|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|GOPHER|HTTPTLS))$/));
$ipver = (not $ipver) ? 'ipv4' : lc($ipver);
die "unsupported IP version: '$ipver'" unless($ipver &&
@ -137,6 +137,7 @@ sub servername_canon {
my ($proto, $ipver, $idnum) = @_;
my $string = lc(servername_str($proto, $ipver, $idnum));
$string =~ tr/-/_/;
$string =~ s/\//_v/;
return $string;
}