From bf6e1053cfefa814ad21f05ca73a048f1ac076d9 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 14 Apr 2004 07:04:45 +0000
Subject: [PATCH] display interesting log files on failure, if -p is used
---
tests/runtests.pl | 23 +++++++++++++++++++----
1 file changed, 19 insertions(+), 4 deletions(-)
diff --git a/tests/runtests.pl b/tests/runtests.pl
index a19d9f7510..c50a45132b 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -1543,17 +1543,32 @@ sub displaylogcontent {
}
sub displaylogs {
+ my ($testnum)=@_;
opendir(DIR, "$LOGDIR") ||
die "can't open dir: $!";
my @logs = readdir(DIR);
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";
foreach $log (sort @logs) {
- # ignore . and .. and the file has nonzero size
- if(($log !~ /^\.(\.|)$/) && (-s "$LOGDIR/$log")) {
+ 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")) {
print "== Start of file $log\n";
- #displaylogcontent("$LOGDIR/$log");
+ displaylogcontent("$LOGDIR/$log");
print "== End of file $log\n";
}
}
@@ -1585,7 +1600,7 @@ foreach $testnum (split(" ", $TESTCASES)) {
$failed.= "$testnum ";
if($postmortem) {
# display all files in log/ in a nice way
- displaylogs();
+ displaylogs($testnum);
}
if(!$anyway) {
# a test failed, abort
--
GitLab