From f57efa189936946562c682d50e3e807c7a3655bf Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Thu, 15 Apr 2004 13:37:19 +0000 Subject: [PATCH] clean the log directory between each single test, so that we can better display all logs and only logs with relevant data when a test fails and -p is used. --- tests/runtests.pl | 27 +++++---------------------- 1 file changed, 5 insertions(+), 22 deletions(-) diff --git a/tests/runtests.pl b/tests/runtests.pl index c50a45132..6e8d5368e 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -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";