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

clean the log directory between each single test, so that we can better

Browse Source 
display all logs and only logs with relevant data when a test fails and -p
is used.
This commit is contained in:
Daniel Stenberg 2004-04-15 13:37:19 +00:00
parent 592522ceaf
commit f57efa1899
1 changed files with 5 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/runtests.pl
View File

@ -1180,13 +1180,9 @@ sub singletest {
}
}
# the test succeeded, remove all log files
if(!$keepoutfiles) {
# remove the stdout and stderr files
unlink($STDOUT);
unlink($STDERR);
unlink($CURLOUT); # remove the downloaded results
unlink("$LOGDIR/upload.$testnum"); # remove upload leftovers
cleardir($LOGDIR);
}
unlink($FTPDCMD); # remove the instructions for this test
@ -1550,23 +1546,10 @@ sub displaylogs {
closedir DIR;
my $log;
my %interest=('curl.log' => 1,
'server.input' => 1,
'server.response' => 1,
'sws.log' => 1,
'ftpd.log' => 1,
);
print "== Contents of files in the log/ dir:\n";
print "== Contents of files in the log/ dir after test $testnum\n";
foreach $log (sort @logs) {
my $num = $log;
$num =~ s/[^0-9]//g; # cut off all non-digits
# the log file is:
# generally interesting OR
# contains our test case number AND
# contains more than zero bytes
if(($interest{$log} || ($num == $testnum)) && (-s "$LOGDIR/$log")) {
# the log file contains more than zero bytes
if(-s "$LOGDIR/$log") {
print "== Start of file $log\n";
displaylogcontent("$LOGDIR/$log");
print "== End of file $log\n";