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

improved the torture testing

Browse Source
This commit is contained in:
Daniel Stenberg 2003-10-24 13:00:19 +00:00
parent 2fe5f5ab4b
commit faabd44658
1 changed files with 43 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
tests/runtests.pl
View File

@ -129,25 +129,39 @@ sub torture {
# loop over the different tests commands # loop over the different tests commands
for(@test) { for(@test) {
my $testcmd = "$CURL $_ >log/torture.stdout 2>log/torture.stderr"; my $cmdargs = "$_";
subVariables(\$testcmd);
# First get test server, ignore the output/result
system($testcmd);
$c++; $c++;
if($tortnum && ($tortnum != $c)) { if($tortnum && ($tortnum != $c)) {
next; next;
} }
print "We want test $c\n";
my $redir=">log/torture.stdout 2>log/torture.stderr";
subVariables(\$cmdargs);
my $testcmd = "$CURL $cmdargs $redir";
# First get URL from test server, ignore the output/result
system($testcmd);
# Set up gdb-stuff if desired
if($gdbthis) {
open(GDBCMD, ">log/gdbcmd");
print GDBCMD "set args $cmdargs\n";
print GDBCMD "show args\n";
close(GDBCMD);
$testcmd = "gdb $CURL -x log/gdbcmd";
}
print "Torture test $c starting up\n", print "Torture test $c starting up\n",
" CMD: $testcmd\n"; " CMD: $testcmd\n";
# memanalyze -v is our friend, get the number of allocations made # memanalyze -v is our friend, get the number of allocations made
my $count; my $count;
my @out = `$memanalyze -v memdump`; my @out = `$memanalyze -v $memdump`;
for(@out) { for(@out) {
if(/^Allocations: (\d+)/) { if(/^Allocations: (\d+)/) {
$count = $1; $count = $1;
@ -156,6 +170,7 @@ sub torture {
} }
if(!$count) { if(!$count) {
# hm, no allocations in this fetch, ignore and get next # hm, no allocations in this fetch, ignore and get next
print "BEEEP, no allocs found for test $c!!!\n";
next; next;
} }
print " $count allocations to excersize\n"; print " $count allocations to excersize\n";
@ -167,12 +182,16 @@ sub torture {
if($tortalloc && ($tortalloc != $limit)) { if($tortalloc && ($tortalloc != $limit)) {
next; next;
} }
print "Alloc no: $limit\r" if(!$gdbthis);
# make the memory allocation function number $limit return failure # make the memory allocation function number $limit return failure
$ENV{'CURL_MEMLIMIT'} = $limit; $ENV{'CURL_MEMLIMIT'} = $limit;
# remove memdump first to be sure we get a new nice and clean one # remove memdump first to be sure we get a new nice and clean one
unlink("memdump"); unlink($memdump);
print "**> Alloc number $limit is now set to fail <**\n" if($gdbthis);
my $ret = system($testcmd); my $ret = system($testcmd);
@ -195,6 +214,7 @@ sub torture {
if($leak) { if($leak) {
print "** MEMORY FAILURE\n"; print "** MEMORY FAILURE\n";
print @memdata; print @memdata;
print `$memanalyze -l $memdump`;
$fail = 1; $fail = 1;
} }
} }
@ -205,10 +225,12 @@ sub torture {
exit 1; exit 1;
} }
} }
print " torture test $c did GOOD\n"; print "\n torture test $c did GOOD\n";
# all is well, now test a different kind of URL # all is well, now test a different kind of URL
} }
stopservers();
exit; # for now, we stop after these tests
} }
####################################################################### #######################################################################
@ -1075,9 +1097,9 @@ sub singletest {
####################################################################### #######################################################################
# Stop all running test servers # Stop all running test servers
sub stopservers { sub stopservers {
print "Shutting down test suite servers:\n" if (!$short); print "Shutting down test suite servers:\n" if ($verbose);
for(keys %run) { for(keys %run) {
printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}) if(!$short); printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}) if($verbose);
stopserver($run{$_}); # the pid file is in the hash table stopserver($run{$_}); # the pid file is in the hash table
} }
} }
@ -1097,6 +1119,7 @@ sub startservers {
if($pid <= 0) { if($pid <= 0) {
return 2; # error starting it return 2; # error starting it
} }
printf ("* pid ftp => %-5d\n", $pid) if($verbose);
$run{'ftp'}=$pid; $run{'ftp'}=$pid;
} }
} }
@ -1105,7 +1128,8 @@ sub startservers {
$pid = runhttpserver($verbose); $pid = runhttpserver($verbose);
if($pid <= 0) { if($pid <= 0) {
return 2; # error starting return 2; # error starting
} }
printf ("* pid http => %-5d\n", $pid) if($verbose);
$run{'http'}=$pid; $run{'http'}=$pid;
} }
} }
@ -1127,6 +1151,7 @@ sub startservers {
if($pid <= 0) { if($pid <= 0) {
return 2; return 2;
} }
printf ("* pid ftps => %-5d\n", $pid) if($verbose);
$run{'ftps'}=$pid; $run{'ftps'}=$pid;
} }
} }
@ -1151,6 +1176,7 @@ sub startservers {
if($pid <= 0) { if($pid <= 0) {
return 2; return 2;
} }
printf ("* pid https => %-5d\n", $pid) if($verbose);
$run{'https'}=$pid; $run{'https'}=$pid;
} }
} }
@ -1229,8 +1255,11 @@ do {
# torture # torture
$torture=1; $torture=1;
my $xtra = $1; my $xtra = $1;
if($xtra =~ /(\d+),(\d+)/) { if($xtra =~ s/^(\d+)//) {
($tortnum, $tortalloc)= ($1, $2); $tortnum = $1;
}
if($xtra =~ s/(\d+)$//) {
$tortalloc = $1;
} }
} }
elsif($ARGV[0] eq "-a") { elsif($ARGV[0] eq "-a") {
@ -1331,7 +1360,6 @@ open(CMDLOG, ">$CURLLOG") ||
# #
if($torture) { if($torture) {
&torture(); &torture();
exit; # for now, we stop after these tests
} }
####################################################################### #######################################################################
# The main test-loop # The main test-loop