hollalinux
/
linux-sg2042
mirror of https://github.com/sophgo/linux-riscv.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ktest.pl: Change the logic to control the size of the log file emailed 

If the log file for a given test is larger than the max size given then use
set the seek from the end of the log file instead of from the start of the
test.

Signed-off-by: Steven Rostedt (VMware) <rostedt@goodmis.org>
This commit is contained in:
Steven Rostedt (VMware) 2020-07-02 09:56:15 -04:00
parent f986900209
commit 855d8abd2e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/testing/ktest/ktest.pl
View File

@ -1499,18 +1499,21 @@ sub dodie {
my $log_file; my $log_file;
if (defined($opt{"LOG_FILE"})) { if (defined($opt{"LOG_FILE"})) {
my $size = 0; my $whence = 0; # beginning of file
my $pos = $test_log_start;
if (defined($mail_max_size)) { if (defined($mail_max_size)) {
my $log_size = tell LOG; my $log_size = tell LOG;
$log_size -= $test_log_start; $log_size -= $test_log_start;
if ($log_size > $mail_max_size) { if ($log_size > $mail_max_size) {
$size = $log_size - $mail_max_size; $whence = 2; # end of file
$pos = - $mail_max_size;
} }
} }
$log_file = "$tmpdir/log"; $log_file = "$tmpdir/log";
open (L, "$opt{LOG_FILE}") or die "Can't open $opt{LOG_FILE} to read)"; open (L, "$opt{LOG_FILE}") or die "Can't open $opt{LOG_FILE} to read)";
open (O, "> $tmpdir/log") or die "Can't open $tmpdir/log\n"; open (O, "> $tmpdir/log") or die "Can't open $tmpdir/log\n";
seek(L, $test_log_start + $size, 0); seek(L, $pos, $whence);
while (<L>) { while (<L>) {
print O; print O;
} }