Mercurial > hg > nginx-tests
changeset 164:f602276b9bb9
Tests: truncate huge messages while logging.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 01 Aug 2011 21:45:26 +0400 |
parents | 450206ed1fd2 |
children | fca70f483608 |
files | lib/Test/Nginx.pm |
diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/Test/Nginx.pm +++ b/lib/Test/Nginx.pm @@ -314,7 +314,12 @@ sub log_core { my ($prefix, $msg) = @_; ($prefix, $msg) = ('', $prefix) unless defined $msg; $prefix .= ' ' if length($prefix) > 0; - + + if (length($msg) > 4096) { + $msg = substr($msg, 0, 4096); + $msg .= "(...logged only 4096 of " . length($msg) . " bytes)"; + } + $msg =~ s/^/# $prefix/gm; $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; $msg .= "\n" unless $msg =~ /\n\Z/;