diff options
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/runtests.pl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 2a39715f6..2660a4ac3 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -3683,10 +3683,17 @@ sub displaylogcontent { $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]); + if(@tail) { + my $tailshow = 200; + my $tailskip = 0; + my $tailtotal = scalar @tail; + if($tailtotal > $tailshow) { + $tailskip = $tailtotal - $tailshow; + logmsg "=== File too long: $tailskip lines omitted here\n"; + } + for($tailskip .. $tailtotal-1) { + logmsg "$tail[$_]"; + } } close(SINGLE); } |