moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2025-02-28 17:31:46 -05:00
Code Issues Releases Wiki Activity

When displaying log files, truncate the really longs ones such as you

Browse Source 
would get from a torture test.
This commit is contained in:
Dan Fandrich 2007-04-25 20:09:32 +00:00
parent 94b253fde7
commit 9bdb05b4d6
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/runtests.pl
View File

@ -2446,10 +2446,15 @@ open(CMDLOG, ">$CURLLOG") ||
####################################################################### #######################################################################
# Display the contents of the given file. Line endings are canonicalized
# and excessively long files are truncated
sub displaylogcontent { sub displaylogcontent {
my ($file)=@_; my ($file)=@_;
if(open(my $SINGLE, "<$file")) { if(open(my $SINGLE, "<$file")) {
my $lfcount; my $lfcount;
my $linecount = 0;
my $truncate;
my @tail;
while(my $string = <$SINGLE>) { while(my $string = <$SINGLE>) {
$string =~ s/\r\n/\n/g; $string =~ s/\r\n/\n/g;
$string =~ s/[\r\f\032]/\n/g; $string =~ s/[\r\f\032]/\n/g;
@ -2458,14 +2463,30 @@ sub displaylogcontent {
if($lfcount == 1) { if($lfcount == 1) {
$string =~ s/\n//; $string =~ s/\n//;
$string =~ s/\s*\!$//; $string =~ s/\s*\!$//;
logmsg " $string\n"; $linecount++;
if ($truncate) {
push @tail, " $string\n";
} else {
logmsg " $string\n";
}
} }
else { else {
for my $line (split("\n", $string)) { for my $line (split("\n", $string)) {
$line =~ s/\s*\!$//; $line =~ s/\s*\!$//;
logmsg " $line\n"; $linecount++;
if ($truncate) {
push @tail, " $line\n";
} else {
logmsg " $line\n";
}
} }
} }
$truncate = $linecount > 1000;
}
if (@tail) {
logmsg "=== File too long: lines here were removed\n";
# This won't work properly if time stamps are enabled in logmsg
logmsg join('',@tail[$#tail-200..$#tail]);
} }
close($SINGLE); close($SINGLE);
} }