generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

require the netrc_debug feature the same way we now can require SSL

Browse Source 
present client-side
This commit is contained in:
Daniel Stenberg 2003-06-12 16:38:14 +00:00
parent 86689dc524
commit 654e3f1101
7 changed files with 44 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/FILEFORMAT
View File

@ -62,6 +62,7 @@ case number.
A list of features that must be present in the client/library for this test
to be able to run. Features testable here are:
SSL
netrc_debug
</features>
<killserver>

5
tests/data/test130
View File

@ -18,7 +18,10 @@ dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
#
# Client-side
<client requires=netrc_debug>
<client>
<features>
netrc_debug
</features>
<server>
ftp
</server>

5
tests/data/test131
View File

@ -18,7 +18,10 @@ dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
#
# Client-side
<client requires=netrc_debug>
<client>
<features>
netrc_debug
</features>
<server>
ftp
</server>

5
tests/data/test132
View File

@ -18,7 +18,10 @@ dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
#
# Client-side
<client requires=netrc_debug>
<client>
<features>
netrc_debug
</features>
<server>
ftp
</server>

5
tests/data/test133
View File

@ -18,7 +18,10 @@ dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
#
# Client-side
<client requires=netrc_debug>
<client>
<features>
netrc_debug
</features>
<server>
ftp
</server>

5
tests/data/test134
View File

@ -18,7 +18,10 @@ dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
#
# Client-side
<client requires=netrc_debug>
<client>
<features>
netrc_debug
</features>
<server>
ftp
</server>

69
tests/runtests.pl
View File

@ -52,9 +52,7 @@ my $perl="perl -I$srcdir";
my $memory_debug=0;
# this gets set if curl is compiled with netrc debugging:
# It has to be in the global symbol table because of the way 'requires' works
$main::netrc_debug=0;
my $netrc_debug = \$main::netrc_debug;
my $netrc_debug = 0;
# name of the file that the memory debugging creates:
my $memdump="memdump";
@ -465,11 +463,11 @@ sub displaydata {
# there's only one debug control in the configure script
# so hope netrc debugging is enabled and set it up
$$netrc_debug = 1;
$netrc_debug = 1;
$ENV{'CURL_DEBUG_NETRC'} = 'log/netrc';
}
printf("* Memory debugging: %s\n", $memory_debug?"ON":"OFF");
printf("* Netrc debugging: %s\n", $$netrc_debug?"ON":"OFF");
printf("* Netrc debugging: %s\n", $netrc_debug?"ON":"OFF");
printf("* HTTPS server: %s\n", $checkstunnel?"ON":"OFF");
printf("* FTPS server: %s\n", $checkstunnel?"ON":"OFF");
printf("* libcurl SSL: %s\n", $ssl_version?"ON":"OFF");
@ -507,6 +505,26 @@ sub singletest {
return -1;
}
my @what = getpart("client", "features");
for(@what) {
my $f = $_;
$f =~ s/\s//g;
if($f eq "SSL") {
if($ssl_version) {
next;
}
}
elsif($f eq "netrc_debug") {
if($netrc_debug) {
next;
}
}
warn "Test case $testnum requires the missing feature: $_";
return -1;
}
my $serverproblem = serverfortest($testnum);
if($serverproblem) {
@ -522,27 +540,6 @@ sub singletest {
return -1;
}
{
my %hash = getpartattr("client");
my $requires = $hash{'requires'};
if (defined($requires)) {
no strict "refs";
my $value=${$requires};
# print "This test requires '$requires' with value '$value' \n";
if (${$requires}) {
# this test is OK
;
}else {
print "$testnum requires $requires, which is not set; skipping\n";
$skipped++;
return -1; # return test-not-run
}
}
}
# extract the reply data
my @reply = getpart("reply", "data");
my @replycheck = getpart("reply", "datacheck");
@ -931,26 +928,6 @@ sub serverfortest {
return 100;
}
my @what = getpart("client", "features");
for(@what) {
my $f = $_;
$f =~ s/\s//g;
print STDERR "CHECK FOR $f\n";
if($f eq "SSL") {
if($ssl_version) {
last;
}
}
warn "Test case $testnum requires the missing feature: $_";
return 100;
}
my @what = getpart("client", "server");
if(!$what[0]) {